Program age;var myAge, momAge, bornAge: integer; beginWriteln('Введите свой год рождения');Readln(myAge);Writeln('Введите год рождения мамы');Readln(momAge);bornAge:=myAge-momAge;Writeln('Ваша мама родила вас в ', bornAge,' лет');end.
Disaczar
после каждого знака ; следует новый шаг. если их надо разделить построччно, то после каждого ; следует новая строка
Disaczar
program age;var myAge, momAge, bornAge: integer; beginWriteln('Введите свой год рождения');Readln(myAge);Writeln('Введите год рождения мамы');Readln(momAge);bornAge:=myAge-momAge;Writeln('Ваша мама родила вас в ', bornAge,' лет');end.
Answers & Comments
Verified answer
Program age;var myAge, momAge, bornAge: integer;beginWriteln('Введите свой год рождения');Readln(myAge);Writeln('Введите год рождения мамы');Readln(momAge);bornAge:=myAge-momAge;Writeln('Ваша мама родила вас в ', bornAge,' лет');end.
beginWriteln('Введите свой год рождения');Readln(myAge);Writeln('Введите год рождения мамы');Readln(momAge);bornAge:=myAge-momAge;Writeln('Ваша мама родила вас в ', bornAge,' лет');end.