Владлена
5 год назад
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух разprogram choise;var N_M:integer;writeln(' введи номер месяца ');readln(N_M);case N_M of1:writeln(' январь ');2:writeln(' февраль ');3:writeln(' март ');4:writeln(' апрель ');5:writeln(' май ') ;6:writeln(' июнь ');7:writeln(' июль ');8:writeln(' август ');9:writeln(' сентябрь ');10:writeln(' октябрь ');11:writeln(' ноябрь ');12:writeln(' декабрь ');else writeln(' такого месяца нет ');end;case N_M of4,6,9,11:writeln(' 30 дней ');1,3,5,7,8,10,12:writeln(' 31 дней ');2:writeln(' 28 дней ');end;case N_M of12,1,2:writeln(' зима');3,4,5:writeln(' весна');6,7,8:writeln(' осень');9,10,11:writeln(' лето');end;end.
ОТВЕТЫ
Cvetana
Oct 24, 2020
var month: array[1..12]of string[10]=
(' январь ',' февраль ',' март ',' апрель ',' май ',' июнь ',
' июль ',' август ',' сентябрь ',' октябрь ',' ноябрь ',' декабрь ');
procedure p(s:string);
begin
writeln(s);
end;
var N_M:integer;
begin
writeln(' введи номер месяца ');
readln(N_M);
case N_M of
1..12: p(month[N_M]);
else p(' такого месяца нет ');
end;
case N_M of
1,3,5,7,8,10,12: p(' 31 день ');
4,6,9,11: p(' 30 дней ');
2: p(' 28 дней ');
end;
case N_M of
12,1,2: p(' зима');
3,4,5: p(' весна');
6,7,8: p(' осень');
9,10,11: p(' лето');
end;
end.
Пример:
введи номер месяца
5
май
31 день
весна
(' январь ',' февраль ',' март ',' апрель ',' май ',' июнь ',
' июль ',' август ',' сентябрь ',' октябрь ',' ноябрь ',' декабрь ');
procedure p(s:string);
begin
writeln(s);
end;
var N_M:integer;
begin
writeln(' введи номер месяца ');
readln(N_M);
case N_M of
1..12: p(month[N_M]);
else p(' такого месяца нет ');
end;
case N_M of
1,3,5,7,8,10,12: p(' 31 день ');
4,6,9,11: p(' 30 дней ');
2: p(' 28 дней ');
end;
case N_M of
12,1,2: p(' зима');
3,4,5: p(' весна');
6,7,8: p(' осень');
9,10,11: p(' лето');
end;
end.
Пример:
введи номер месяца
5
май
31 день
весна
436
Смежные вопросы:
