Question

Составьте на Паскале программу, которая запрашивает возраст двух детей (Оли и Коли), а затем выводит информацию о том, кто из них младше.

Answer 1

Program v;
var x, y: integer;
begin
readln(x);
readln(y);
if(x<y) then writeln(x);
else writeln(y);
end.

Answer 2

Var a,b:integer;
begin
write('Введи возраст Оли: ');
readln(a);
write('Введи возраст Коли: ');
readln(b);
if a<b
 then writeln('Оля младше')
 else writeln('Коля младше');
end.

Пример:
Введи возраст Оли: 5
Введи возраст Коли: 2
Коля младше

Answer 3

Вот пример программы на языке Паскаль, которая запрашивает возраст двух детей (Оли и Коли) и выводит информацию о том, кто из них младше:

program WhoIsYounger;

var
  OlyaAge, KolyaAge: Integer;

begin
  writeln('Введите возраст Оли:');
  readln(OlyaAge);
  
  writeln('Введите возраст Коли:');
  readln(KolyaAge);
  
  if OlyaAge < KolyaAge then
    writeln('Оля младше Коли')
  else if KolyaAge < OlyaAge then
    writeln('Коля младше Оли')
  else
    writeln('Оля и Коля одного возраста');
end.

Программа начинается с объявления двух переменных `OlyaAge` и `KolyaAge`, которые будут хранить возраст Оли и Коли соответственно.

Затем программа запрашивает у пользователя ввести возраст Оли с помощью `writeln('Введите возраст Оли:');` и `readln(OlyaAge);`. Аналогично программа запрашивает возраст Коли.

Далее, используя условные операторы `if` и `else`, программа сравнивает возраст Оли и Коли и выводит соответствующую информацию о том, кто из них младше или если они одного возраста.

В конце программы стоит `end.`, что означает конец программы.