program E8;
var a, b, c, v: real;
begin
writeln('введите значения длины, ширины,высоты');
readln(a,b,c);
v:=a*b*c;
writeln('v=', v:4:2);
readln;
end.
Паскаль.
<span>
<span>Program Primer;
VAR :x; y; z;integer
BEGIN
</span><span>x=5
y=-6
if x>y then z=x+y
else z=y-x
writeln (z)
END.</span></span>
Program n1;
var st: string;
i,k: integer;
begin
st:='абракадабра';
k:=0;
for i:=1 to st.Length do
if st[i]='а' then k:=k+1;
writeln('в этом слове ',k,' букв а');
end.
150 ЭТО 1200 БИТ
20*30=600
600 ЭТО 4800 БИТ
1200*4800=5 760 000 БИТ
ОТВЕТ В БАЙТАХ: 90 000 БАЙТ
<h2>Программа не будет работать без <u>ключевого слова алг</u> и <u>ключевого слова кон</u></h2>