Вопрос/Задача:
var
i: integer;
s: real;
m: array[1..2,1..6] of real;
begin
s: =0;
for i: =1 to 6 do
readln(m[1,i]);
readln(m[2,i]);
s: =s+3.14*m[1,i]*m[1,i]*m[2,i]*1200;
end;
writeln(s);
end.
a: array[1..5]of integer;
for i: =1 to 5 do read(a[i]);
for i: =1 to 5 do write(a[i],' ');
writeln;
for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);
1)tut kazhdii simvol zanimaet 1 bait(tak imeem bukvi alfavita( soobshenie s uchetom probela zanimaet 10 bait.
2)tut kazhdii simvol zanimaet 1 bait(tak ispol'zovani znaki + i - pmimo 0 i 1);
soobshenie zanimaet 11 bait.
3)analogichno 15 bait.
конечно бред. оно логично звучит и без заполнения пробелов
думаю можно туда подставить тип компа. например мак или пк (вечная война между яблоком и мелкомягкими)