program p1;
var a: integer;
begin
a=(45/5*7)+(42/7*9)-(7*1)
write(a)
end.
110
Program n1;
const n=11;
var RAF: array[1..n] of integer;
i: integer;
p: real;
begin
write('массив: ');
for i:=1 to n do begin
RAF[i]:=random(21)-5;
write(RAF[i],' ');
end;
p:=1;
writeln;
for i:=1 to n do if RAF[i]<0 then p:=p*RAF[i];
write('произведение отрицательных: ',p);
end.
Const m = 3;
n = 3;
var a: array[1..m, 1..n] of integer;
i,j,max3:integer;
begin
max3:=-MaxInt;
for i:=1 to m do begin
for j:=1 to n do begin
write('A[',i,',',j,']= ');
readln (a[i,j]);
if (a[i,j] mod 3 = 0)and (max3<a[i,j]) then
max3:=a[i,j];
end;
end;
writeln('Максимальное кратное трем ',max3);
end.
Тестовое решение:
A[1,1]= -15
A[1,2]= 9
A[1,3]= 3
A[2,1]= 7
A[2,2]= -21
A[2,3]= 21
A[3,1]= 15
A[3,2]= -9
A[3,3]= 9
Максимальное кратное трем 21
16 путей
АБДИК, АБДЖК, АБВДИК, АБВДЖК, АБВЖК, АВДИК, АВДЖК, АВЖК, АГВДИК, АГВДЖК, АГВЖК, АГЕВДИК,АГЕВДЖК, АГЕВЖК, АГЕЖК, АГЕК
Var
a, b: integer;
begin
readln(a, b);
writeln('Сумма чисел: ', a+b);
writeln('Разница между числами: ', abs(a-b));
writeln('Квадрат разности: ', sqr(a-b));
writeln('Частное: ', a div b);
writeln('Остаток от деления первого на второе: ', a mod b);
end.