Program massiv;
const N=10;
var i:integer;
mas:array[1..N]of integer;
begin
randomize;
for i:=1 to N do
begin
mas[i]:=random(100);
write(mas[i],' ');
end;
writeln(' ');
for i:=1 to N do
begin
if i mod 3=0 then
write(mas[i],' ');
end;
end.
250 стр * 40строк*50симв=50 000 симв . 700*1024-50000/1024=.... столько останется свободного места
Алгоритм - 8 букв.
Формула такая: k=2^(n-1); Т.е. ответ - 128.
1)
Program n1;
var a,b,c: real;
begin
readln(a,b,c);
writeln('D=',b*b-4*a*c);
end.
2)
Program n1;
begin
writeln('площадь: ',5.8*5.8*pi-3.8*3.8*pi);
end.