По введенному номеру месяца определить сколько в нем дней. Пояснение: после запуска программы, выходит - id1164649520230419 от LizaOneLove8 19.04.2023 00:42

Question

Информатика: По введенному номеру месяца определить сколько в нем дней. Пояснение: после запуска программы, выходит фраза: «Введи номер месяца», пользователь вводит любое число от 1 до 12 (т к месяцы бывают 1-январь, 2 февраль, 3-март и т п) и программа ему выдает кол-во дней в месяце. В программе будет использован условный оператор, а точнее три его конструкции:в первой (IF) рассматриваете номера месяцев с кол-м дней равных 30, во второй рассматриваете номера месяцев с кол-м дней равных 31 и в третьей февраль.

LizaOneLove8 · Accepted Answer

1) В цикле Repeat Until идет проверка, что число введено в диапазоне [0..200}
var
i,n:integer;
a:longint;
p:real;
begin
p:=1;
Repeat
  readln(n);
Until (n>=0)and(n<=200);
for i:=1 to n do
begin
readln(a);
  p:=p*a;
end;
writeln(p);
end.

2)
var
i,n:integer;
a,max:longint;
begin
Repeat
  readln(n);
Until (n>=0)and(n<=200);
for i:=1 to n do
begin
readln(a);
if a>max then
max:=a;
end;
writeln(max);
end.
3)
var
i,n:integer;
a,min:longint;
begin
Repeat
  readln(n);
Until (n>=0)and(n<=200);
for i:=1 to n do
begin
readln(a);
if a<min then
min:=a;
end;
writeln(min);
end.

MOGZ ответил