X=1024*768
x=786432
y=786432*2
y=1572864
bayt=1572864/8
bayt=196608
kbayt=196608/1024
kbayt=192
OTVET=192Kb
Uses Crt;
const
n=30;
type
tA=array[1..n] of integer;
tS=array[1..n] of string[30];
var
i:integer;
p,c:tA;
s:tS;
begin
ClrScr;
for i:=1 to n do begin
Write('Марка автомобиля ',i,': ');
Readln(s[i]);
Write('его мощность (л.с.) и стоимость (руб.); ');
Readln(p[i],c[i])
end;
Writeln;
Writeln('Автомобили мощностью не более 80 л.с.');
for i:=1 to n do
if p[i]<=80 then Writeln(s[i]:30,p[i]:10,c[i]:10);
ReadKey;
end.
Uses crt;
var x,y,result: real;
begin
readln(x,y);
result:=cos(x)/pi-2*x+16*x*cos(x*y)-2;
writeln(result:7:4);
<span>end.</span>
Промотав последовательность действий в обратную сторону, мы получим ответ
1)