1.
Program ex;
var l,v,s: real;
Begin
writeln('введите длину ребра куба:', l);
readln(l);
v:=l*l*l;
s:=sqr(6*l);
writeln('объем куба:', v);
writeln('площадь поверхности куба: ', s);
END.
2. см.картинку
Думаю это ответ б. Потому что все остальные передают информацию.
(gameobject earth=void; -3 static surr^gameobject sun=particle; ~, -2 coll mvm)=false
Ответ:
Объяснение:
program mod7;
var
i:integer;
p:int64;
begin
p:=1;
for i:=1 to 50 do
if i mod 7=0 then p:=p*i;
writeln('Цикл for. p=',p);
///////////////////////////
p:=1; i:=1;
while i<=50 do begin
if i mod 7=0 then p:=p*i;
i:=i+1;
end;
writeln('Цикл while. p=',p);
/////////////////////////////
i:=1;p:=1;
repeat
if i mod 7=0 then p:=p*i;
i:=i+1;
until i>50;
writeln('Цикл repeat. p=',p);
readln;
end.