Помогите! составить программу в паскале.

У младенца Кузьки

вылезло уже s зубов, а у его бабы Дуси осталось w зуба. Задать с помощью генератора случайных чисел 2 целых числа от 0 до 5 - значения для s и w. У кого зубов больше?

Question

Информатика

Пимен

5 марта, 22:31

Помогите! составить программу в паскале.

У младенца Кузьки

вылезло уже s зубов, а у его бабы Дуси осталось w зуба. Задать с помощью генератора случайных чисел 2 целых числа от 0 до 5 - значения для s и w. У кого зубов больше?

+3

Ответы (1)

Знаете ответ на вопрос?

Добромила · Answer 1

Program Rinok;

Const x0=0; x1=5;

Var s, w: integer;

begin

Randomize;

s:=Random (X1-X0) + X0;

w:=Random (X1-X0) + X0;

writeln ('у Кузи-', s) ;

writeln ('у Дуси-', w) ;

if (s>w)

then

Writeln ('-у Кузи больше')

else

Writeln ('-у Дуси больше') ;

Readln

end.