Решим задание наоборот:
52 ->7,
1) прибавь 1,
2) подели на 3.
52 + 1 = 53 (1).
53 + 1 = 54 (1).
54 : 3 = 18 (2).
18 : 3 = 6 (2).
6 + 1 = 7 (1).
Запишем команды снизу-вверх.
Ответ: 12211.
Var i,s,p,max:integer;
a:array[1..10] of integer; // описание переменных
begin
s:=0;
p:=1;
max:=1;
for i:=1 to 10 do // Цикл в котором находится:
begin
a[i]:=random(100); // генерация рандом чисел
write(a[i]:5); // вывод всего массива
s:=s+a[i]; // нахождение суммы
p:=p*a[i]; // нахождение произведения
end;
for i:=1 to 10 do // цикл для нахождения максимального в массиве
if a[i]>max then max:=a[i];
writeln;
writeln('Summa: ',s); // Все что ниже вывод резельтатов.
writeln('Proizvedenie: ',p);
writeln('Maximalnoe: ',max);
end.
Const nx = 20;mx = 30;
var A:array[1..nx,1..mx]of integer; i,j,n,m,min,z:integer; sum:array[1..nx]of integer;
begin
write('Введите число строк и столбцов');Readln(n,m);min:=1000;
for i:=1 to n do begin
sum[i]:=0;
for j:=1 to n do begin
A[i,j]:= random(100)-50;
write(A[i,j]:5);sum[i]:= sum[i] + A[i,j];end;writeln;
if min > abs(sum[i]) then begin min := abs(sum[i]);z:=i;end;
end;writeln;for i:=1 to n do
writeln('i= ',i,' sum = ', sum[i]:4);writeln;
writeln('Ближе всего к нулю i= ',z,' sum = ', sum[z]:4);<span>end.</span>
1)18<A
2)18<=A
3)A<18
4)A<=18
5)A mod 4 = 0
6)A<=55
