Программа запрашивает двухразрядное число, если оно чётное и больше 50, то отобразить слово «Весна», иначе "Oсень". *20 баллов
116
410
Ответы на вопрос:
var
a: real;
begin
Write(‘Введите двухразрядное число>>’);
Readln(a);
while (a<10) or (a>99) do
begin
Write(‘Введите двухразрядное число>>’);
Readln(a);
end;
if (a mod 2 = 0) and (a>50) then
Write(‘Весна’)
else
Write(‘Осень’);
end.
Объяснение:
while (a<10) or (a>99) do
begin
Write(‘Введите двухразрядное число>>’);
Readln(a);
end; — это нужно, чтобы ввели именно двузначное число
Популярно: Информатика
-
kazbek626.01.2021 05:28
-
RMDEL09.02.2022 16:30
-
неведимка1710810.11.2022 20:44
-
ChocolateMilk105.05.2023 00:24
-
PolyaBarane08.12.2022 19:34
-
Zalis116.05.2020 18:17
-
nastya0904225.01.2020 15:26
-
marinabelousov230.01.2022 08:39
-
geneanedel21.07.2021 15:09
-
SpOoN77713.01.2021 10:11