var s,a,b,c: string; begins: =' фигуры'; writeln('введите названия трёх фигур'); read(a,b,c); writeln(s,': ',a,', ',b,' и ',c); end.
Ответ дал: Гость
var i: integer;
begin
for i: =1 to 1000 do
if i mod 2 = 1 then writeln(i*i*i);
end.
Ответ дал: Гость
program 1;
var i, dlina, shirina, visota, n, s, v : integer; beginwriteln(’введите число залов‘); readln (n); for i: =1 to n do beginwriteln(’введите длину,ширину и высоту зала‘); readln (dlina, shirina, visota); s: =dlina*shirina; v: =s*visota; writeln(‘площадь пола=’,s,’ объем зала=‘,v); endend.
Популярные вопросы