Маленькому марсианину Коляйно известны возраст папы и возраст мамы. Он хочет узнать, кто из них старше, но никак не может разобраться. Помогите ему в этом. Input Со стандартного устройства ввода вводится через пробел 2 целых положительных числа, не превосходящих 10000 – возраст папы и возраст мамы Коляйно. Output Нужно выдать на стандартное устройство вывода одно из следующих сообщений: “Mother is older than father” – если мама старше папы “Mother is younger than father” – если папа старше мамы “Mother and father are of the same age” – если папа и мама ровесники Кавычки выводить не нужно.
нужно в циклах с пред,после условием или в цикле с параметром
Var d,m:integer; begin Readln(m); readln(d); if m>d then writeln('сюда вставить сообщение если мама старше папы') else if mwriteln('ровесники'); End. P.S. Сообщения сам встань, мне не удобно с планшета.
А вот как это в цикле делать не представляю. Цыкл тут не нужен.
Нужно именно в цикле,иначе сайт где задания даже не проверяет
Var d,i,m:integer; begin Readln(m); readln(d); if m>d then writeln('сюда вставить сообщение если мама старше папы') else if mwriteln('ровесники'); End. P.S. Сообщения сам встань, мне не удобно с планшета.
Var d,i,m:integer; begin Readln(m); readln(d); For i:=1 to 0 do begin if m>d then writeln('сюда вставить сообщение если мама старше папы') else if mwriteln('ровесники'); I:=I-1; end; End. Вот с циклом:D