Question

Маленькому
марсианину Коляйно известны возраст папы и возраст мамы. Он хочет узнать, кто
из них старше, но никак не может разобраться. Помогите ему в этом.

 

Input

Со стандартного
устройства ввода вводится через пробел 2 целых положительных числа, не
превосходящих 10000 – возраст папы и возраст мамы Коляйно.

 

Output

Нужно выдать на
стандартное устройство вывода одно из следующих сообщений:

“Mother is older than father” – если мама старше папы

“Mother is younger than father” – если папа старше мамы

“Mother and father are of the same
age” – если папа и
мама ровесники

Кавычки
выводить не нужно.

27ec9413e2ff672480f60f8ee1fad562.doc

Answer 1

Var
d,m:integer;
begin
Readln(m);
readln(d);
if m>d then writeln('сюда вставить сообщение если мама старше папы')
else 
if m<d then writeln('папа старше мамы') else
writeln('ровесники');
End.
P.S. Сообщения сам встань, мне не удобно с планшета.

Answer 2

Нужно именно в цикле,иначе сайт где задания даже не проверяет

Answer 3

Var
d,i,m:integer;
begin
Readln(m);
readln(d);
For i:=1 to 0 do begin
if m>d then writeln('сюда вставить сообщение если мама старше папы')
else
if m<d then writeln('папа старше мамы') else
writeln('ровесники');
I:=I-1; end;
End.
Вот с циклом:D