Предмет: Информатика,
автор: MOPE1999
Помогите!!
Напечатайте фразу "Мне n лет", согласовав число n (n<=99) с фразой. Например, мне 15 лет или мне 4 года или мне 21 год.
Паскаль
therealcf2014:
Сгенерировать число n от 0 до 99 и вывести его?
Ответы
Автор ответа:
0
program vozrast;
var n: integer;
begin
writeln ('Введите возраст');
readln (n);
if (n=1) or (n mod 10 = 1) then writeln ('Мне ',n,' год')
else if (n>1) and (n<5) or (n mod 10 = 2) or (n mod 10 = 3) or (n mod 10 = 4) then writeln ('Мне ',n,' года')
else writeln ('Мне ',n, ' лет');
end.
var n: integer;
begin
writeln ('Введите возраст');
readln (n);
if (n=1) or (n mod 10 = 1) then writeln ('Мне ',n,' год')
else if (n>1) and (n<5) or (n mod 10 = 2) or (n mod 10 = 3) or (n mod 10 = 4) then writeln ('Мне ',n,' года')
else writeln ('Мне ',n, ' лет');
end.
Похожие вопросы
Предмет: Русский язык,
автор: lusi0902
Предмет: Русский язык,
автор: meleeek
Предмет: Қазақ тiлi,
автор: shazhanbaeva76
Предмет: Математика,
автор: Звееееезда
Предмет: Математика,
автор: Irina764783