Информатика9-й класс
Var a,b,c:integer; begin read(a,b,c); if (a write('да') else write('нет'); end.
эт 3
Пиши давай и 4. Ответ считается неполным.
щя
var a:integer;begin write('Ведите номер месяца:'); read(a); case a of 1,12,2:write('Зима'); 3,4,5:write('Весна'); 6,7,8:write('Лето'); 9,10,11:write('Осень'); end;end.
во
Хорошо