Ответы
Ответ дал:
0
program month;
var
num : integer;
i, b : integer;
begin
b := 9999999999;
writeln('Введи число от 1 до 12:');
readln(num);
for i := 0 to b do
begin
if num <= 0 then
begin
writeln('Нужно вводить числа от 1 до 12:');
readln(num);
end
else if num > 12 then
begin
writeln('Нужно вводить числа от 1 до 12:');
readln(num);
end;
end;
case num of
1 : writeln('Январь');
2 : writeln('Февраль');
3 : writeln('Март');
4 : writeln('Апрель');
5 : writeln('Май');
6 : writeln('Июнь');
7 : writeln('Июль');
8 : writeln('Август');
9 : writeln('Сентябрь');
10 : writeln('Октябрь');
11 : writeln('Ноябрь');
12 : writeln('Декабрь');
end;
end.
var
num : integer;
i, b : integer;
begin
b := 9999999999;
writeln('Введи число от 1 до 12:');
readln(num);
for i := 0 to b do
begin
if num <= 0 then
begin
writeln('Нужно вводить числа от 1 до 12:');
readln(num);
end
else if num > 12 then
begin
writeln('Нужно вводить числа от 1 до 12:');
readln(num);
end;
end;
case num of
1 : writeln('Январь');
2 : writeln('Февраль');
3 : writeln('Март');
4 : writeln('Апрель');
5 : writeln('Май');
6 : writeln('Июнь');
7 : writeln('Июль');
8 : writeln('Август');
9 : writeln('Сентябрь');
10 : writeln('Октябрь');
11 : writeln('Ноябрь');
12 : writeln('Декабрь');
end;
end.
Ответ дал:
0
Это на 4.
Ответ дал:
0
Почему на английском языке
Ответ дал:
0
Потому что это Pascal.
Вас заинтересует
1 год назад
1 год назад
2 года назад
8 лет назад
8 лет назад
8 лет назад