как написать программу

Ответ от Алексей[мастер]
начни с 10, а дальше само пойдёт....

Ответ от Андрей Дидык[гуру]
Вводишь цифру(номер месяца)Пусть а - эта цифраIf (a:=1) or (a:=2) or (a:=3) then writeln('ЗИМА') elseIf (a:=4) or (a:=5) or (a:=6) then writeln('ВЕСНА') elseIf (a:=7) or (a:=8) or (a:=9) then writeln('ОСЕНЬ') else writeln(''ЗИМА)Ос

Ответ от Денис Фролов[гуру]
program mes;vars, n, m:integer;beginwrite('Введите номер месяца ');read(m);if (m <= 12) and (m>0) then beginif (m=12) then beginm:= 1;end else begin m:=m+1;end;s := trunc(m / 4);if

Ответ от Пользователь удален[новичек]
Например:Program Sax;var a,b,c:real;begin writeln('Введите три числа через пробел'); readln; if ... Если чо пиши на мыло помогу

Ответ от 3 ответа[гуру]

Ответ от 3 ответа[гуру]