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