Нужно написать программу в паскале. : введите возраст человека от 1 до 150 и выведите его вместе со словом "год","года",лет".
Sofya768Miller
3
29.03.2019 10:00
3
Другие вопросы по теме Информатика
вероника1060
13.08.2019 11:20
Arisha2544
01.06.2019 11:50
RassiaScream
01.06.2019 09:16
kristinka078
01.06.2019 09:55
KristinaPanpi4
31.08.2019 00:20
disimasai
11.12.2020 13:08
tema3331
11.12.2020 13:09
Xsenia274
11.12.2020 13:10
Милаха84
15.09.2019 19:39
Популярные вопросы
- Чому відбитки предметів у воді здаеться менш яскравим ніж самі предмети...
1 - сделать эти 2 задания за ранее...
1 - Найти скорость метров в секунду если путь пройденный телом за 5 минут...
1 - Расставьте знаки препинания: - В «Последнем сроке» от нас вот так...
3 - Написать эссе на тему «Можно ли жить в обществе не зная законов?»...
1 - Реши уравнения с теоремы Виеты: 1) х2-6х+8=0 2) х2-3х+4=0 3) х2+5х+6=0...
2 - Изучи рисунок и определи какие инструменты были использавыны...
3 - Я просто умоляю вас, выполните эти задания, ооочень надо...
3 - 1. В каком году был принят ФЗ РФ «Об охране окружающей природной...
3 - У папы 4группа крови, у мамы 1.Какие группы крови у наследуют дети?...
3
var
a:byte;
begin
readln(a);
if ((a<11) or ((a>14) and (a<110)) or (a>114)) and (a mod 10<5) and (a mod 10>1) then
writeln(a,' года') else
if (a mod 10=1) and (a<>11) and (a<>111) then
writeln(a,' год') else
writeln(a,' лет');
readln;
end.