Program zadacha_1;
var a,b,c:integer;
begin
writeln('введите число');
readln(a);
for b:=1 to a do begin
c:=sqr(b);
writeln(c);
end;
end.
<span>
program zadacha_2;
var a,b,c:integer;
begin
c:=1;
writeln('введите первое число');
readln(a);
writeln('введите второе число');
readln(b);
for a:=a to b do begin
c:=c*a;
end;
writeln('произведение чисел от ',a,' до ',b,' ==> ',c);
end.
<span>
program zadacha_3;
var a,b,c:integer;
d:real;
begin
c:=0;
writeln('введите число');
readln(a);
for b:=10 to a do begin
c:=c+1;
d:=d+b;
end;
d:=d/c;
writeln('среднее арифметическое ',d);
end.</span></span><span /><span><span><span>
</span></span></span>
Задача 25:
2^9+2^9=1024
2^7=128
2^4+2^5=48
2^5+2^2=36
1024+128+48+36=1236
Ответ: 9974552(это станет двойки)
PROGRAM Z13;
const n=6; m=7;
var a: array[1..n, 1..m] of integer;
i,j,k:integer;
begin
k:=2;
for j:=1 to m do
begin
for i:=1 to n do a[i,j]:=k;
k:=k+3;
end;
for j:=1 to m do
begin
for i:=1 to n do
write(a[i,j]:4);
writeln;
end;
end.<span>
</span>
Цикл выполнится два раза и программа продолжить выполнение
ответ: 35
Если я правильно поняла задачу и нужно из двоичного числа перевести в десятичное, то ответ 231