Валгоритмах записанных ниже, используются переменные a, b. определите значения переменных после выполнения алгоритмов : a: =-3; b = a div (abc ( a ) ); b: = abc ( a ) +b a: =5*b;
PascalABC.Net const m=8; n=11; var a,b,c:array[1..m,1..n] of integer; i,j:integer; begin Randomize; Writeln('Исходный массив A'); for i:=1 to m do begin for j:=1 to n do begin a[i,j]:=Random(51)-25; Write(a[i,j]:4) end; Writeln end; Writeln('Исходный массив B'); for i:=1 to m do begin for j:=1 to n do begin b[i,j]:=Random(41)-20; Write(b[i,j]:4) end; Writeln end; Writeln('Результирующий массив С'); for i:=1 to m do begin for j:=1 to n do begin c[i,j]:=a[i,j]+b[m-i+1,n-j+1]; Write(c[i,j]:4) end; Writeln end end.
//Это можно стереть. Если в N есть 0 то тогда программа выведет NO. program z1; var b,c,d,i,s,l:integer; a:string; begin read(a); b:=length(a); s:=StrToInt(a); c:=0; for i:=1 to b do for i:=1 to b do begin d:=StrToInt(a[i]); if d=0 then l:=1; end; if l=0 then begin for i:=1 to b do for i:=1 to b do begin d:=StrToInt(a[i]); if (s mod d)=0 then c:=c+1; end; end else write('NO');if (l=0) and (c=b) then write('T'); if (l=0) and (c<>b) then write('P'); end.
var
a, b: integer;
begin
a := -3;
b := a div (abs(a));
b := abs(a) + b;
a := 5 * b;
writeln(a);
writeln(b);
end.
Вывод
10
2