1)
var
i, A, B, sum: integer;
begin
sum := 0;
read(A, B);
for i := A to B do
begin
write(i, ' ');
sum := sum + i;
end;
writeln;
write(sum);
end.
2)
var
i, N, count, num: integer;
begin
count := 0;
read(N);
for i := 1 to N do
begin
read(num);
if (num mod 4 = 0) then count := count + 1;
end;
if (count = 0) then
write('NO')
else
write(count);
end.
3)
var
i, a, b, c, d: integer;
begin
read(a, b, c, d);
for i := a to b do
begin
if (i mod d = c) then write(i, ' ');
end;
end.
F= 1024000*5=2^(10) *5000 бит =2^(13)*625 бит = 625 Кбайт
Var x ,y: integer;
begin
for x:=-4 to 4 do
begin
y:=2*x*x*x-7*x;
writeln('При x = ', x, ' y = ', y);
end;
<span>end.</span>
Const n=10;
var
a: array[1..n] of real;
s, k: real;
i, m: integer;
begin
//считываем данные в массив
for i:=1 to n do
readln(a[i]);
k:=0; m:=0;
//находим сумму и количество целых элементов
for i:=1 to n do
if a[i] = int(a[i]) then
begin
k:=k+a[i];
inc(m);
end;
//находим среднее арифметическое
s := k/m;
writeln(s);
<span>end.</span>
Операции с целыми числами занимают меньше времени, что повышает эффективность программы, также на запись целых чисел требуется меньше места.