Напишите программу сортировки массива выбором по возрастанию и убыванию в паскале.
!
279
467
Ответы на вопрос:
var
Age : integer;
begin
Repeat
Write('Введите Ваш возраст: ');
Readln(Age);
until Age in [1..99];
if Age in [10..20] then Writeln('Мне ', Age, ' лет') else
case Age mod 10 of
1: Writeln('Мне ', Age, ' год');
2, 3, 4 : Writeln('Мне ', Age, ' года');
0, 5..9 : Writeln('Мне ', Age, ' лет');
end;
end.
Популярно: Информатика
-
mkovalenko73028.04.2023 07:33
-
rasul123303.02.2023 16:41
-
ЬПОАСИ24.09.2020 11:23
-
zhzdd23.01.2022 00:23
-
fantomac71804.09.2022 08:04
-
bat9qee31.05.2023 08:08
-
Самира27110602.12.2021 20:38
-
Itupoypomogite111.06.2020 05:20
-
AkiraK66603.11.2022 23:56
-
ViktoriaTigra14.05.2020 17:10