Помогите! составить программу в паскале. У младенца Кузьки вылезло уже s зубов, а у его...

Question

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

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

Comments

у меня есть все сделанные уроки с 7 по14

---

не хочешь купить?

Answer 1

Program Rinok;
Constx0=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.