Ответ: Программа делает деление первого на втрого и выводит его остаток
Пример:
<em /><em /><em>1 / 2 = 0 (остаток 1)
</em><em>10 / 5 = 2 (остаток 0)
</em><em>25 / 10 = 2 (остаток 5)</em>
<em>31 / 3 = 10 (остаток 1)</em>
<em>33 / 22 = 1 (остаток 11)</em>
Var i,k,s:integer;
begin
while k<15 do
begin
i:=i+1;
if i mod 5=3 then
begin
if k<14 then write (i,'^2 + ')
else write (i,'^2 = ');
s:=s+sqr(i);
k:=k+1;
end;
end;
writeln (s);
end.
const
n= 5;
var
i,j,max: integer;
a: array [1..5,1..5] of integer;
begin
for i:=1 to n do begin
for j:=1 to n do begin
a[i,j]:= random(10);
write(a[i,j],' ')
end;
writeln
end;
max:= a[n,1];
for i:=1 to n do
if a[i,n-i+1]>max then max:=a[i,n-i+1];
writeln(max)
<span>end.</span>
Скинь фотку ребуса''''''''''