Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Informatika (2 семестр) / 3 аттестация / vozrast
.pas program vozrast;
var x:integer;
begin
readln (x);
if (x mod 10=1) and (x<>11) then
writeln('Мне ',x,' год')
else
begin
if (x mod 10>1) and (x mod 10<5) and (x<>12) and(x<>13) and(x<>14)then
writeln('Мне ',x,' года')
else
writeln ('Мне ',x,' лет');
end;
end.
var x:integer;
begin
readln (x);
if (x mod 10=1) and (x<>11) then
writeln('Мне ',x,' год')
else
begin
if (x mod 10>1) and (x mod 10<5) and (x<>12) and(x<>13) and(x<>14)then
writeln('Мне ',x,' года')
else
writeln ('Мне ',x,' лет');
end;
end.
Соседние файлы в папке 3 аттестация