Запрос найдено страниц ( в тысячах) вильнюс 2800 таллин 2400 рига 2100 вильнюс | таллин 5200 рига & - id328601920230519 от Reek5657 19.05.2023 15:37

Question

Информатика: Запрос найдено страниц ( в тысячах) вильнюс 2800 таллин 2400 рига 2100 вильнюс | таллин 5200 рига & таллин 850 вильнюс & рига 870 какое количество страниц (в тысячах) будет найдено по запросу вильнюс | рига | таллин?

Reek5657 · Accepted Answer

Var month:integer;
begin
readln(month);
if ((month >0 ) and ( month < 13)) then
case month of
1 : writeln ('january (31 days) ');
2 : writeln ('fabruary (28 days) ');
3 : writeln ('march (31 days)');
4 : writeln ('April (31 days) ');
5 : writeln ('fabruary (28 days)');
6 : writeln ('march (31 days)');
7 : writeln ('january (31 days) ');
8 : writeln ('fabruary (28 days) ');
9 : writeln ('march (31 days)');
10 : writeln ('january (31 days) ');
11 : writeln ('fabruary (28 days) ');
12: writeln ('march (31 days)');
end
else writeln('error');
readln;
end.

MOGZ ответил