Question

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

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.

Answer 2

Конечно, я помогу вам составить программу на языке Pascal для решения этой задачи. Вот пример программы:

program TeethComparison;

var
  s, w: integer;

begin
  // Инициализация генератора случайных чисел
  Randomize;

// Генерация случайных чисел от 0 до 5 для s и w
  s := Random(6); // числа от 0 до 5 включительно
  w := Random(6);

// Вывод сгенерированных значений
  writeln('Количество зубов у Кузьки (s): ', s);
  writeln('Количество зубов у Дуси (w): ', w);

// Сравнение количества зубов и вывод результата
  if s > w then
    writeln('У Кузьки больше зубов.')
  else if s < w then
    writeln('У Дуси больше зубов.')
  else
    writeln('У Кузьки и Дуси одинаковое количество зубов.');

// Ждем, пока пользователь нажмет Enter, чтобы окно консоли не закрылось сразу
  readln;
end.

Эта программа использует генератор случайных чисел для определения количества зубов у Кузьки (s) и Дуси (w), затем сравнивает их и выводит результат. Помните, что каждый раз при запуске программы значения s и w будут разными из-за использования генератора случайных чисел.