Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var
k: integer; begin
read(k);
case k of
1..2,12: write('зима');
3..5: write ('весна');
6..8 : write ('лето');
9..11: write ('осень');
end; end.
первое
заголовок: уходид из дома
4.порощаться
6.выключить свет,газ,
второе
заголовок: приход в квартиру
3.поверни ключ
4.вынь ключ из скважины
program prim;
var i,x : integer;
begin
x: =1;
for i: =1 to 5 do
begin write (x,' ');
x: =x+2;
end;
end.
напишите цель . то что у вас написано - полный бред. который после устранения синтаксических ошибок(а их тут не одна) работать не будет
Популярные вопросы