Месяца напишите программаны, который выпускает, следующее наименование месяца посмотрев раз нөмеріне. (если есть здешний m=1, февральский месяц, 4 - май, 12 января)
Program c; var a:byte; begin read(a); if a = 1 then write('Январь') else if a=2 then write('Февраль') else if a=2 then write('Март')else if a=2 then write('Апрель')else if a=2 then write('Май')else if a=2 then write('Июнь')else if a=2 then write('Июль')else if a=2 then write('Август')else if a=2 then write('Сентябрь')else if a=2 then write('Октябрь')else if a=2 then write('Ноябрь')else if a=2 then write('Декабрь'); end. Вроде так, но не уверен
var
a:byte;
begin
read(a);
if a = 1 then write('Январь') else if a=2 then write('Февраль') else if a=2 then write('Март')else if a=2
then write('Апрель')else if a=2 then write('Май')else if a=2 then write('Июнь')else
if a=2 then write('Июль')else if a=2 then write('Август')else if a=2 then write('Сентябрь')else
if a=2 then write('Октябрь')else if a=2 then write('Ноябрь')else if a=2 then write('Декабрь');
end.
Вроде так, но не уверен