Даны три числа в разных системах счисления: а\/(8) = 64; в\/(16) = 64; с\/(2) = 11000. выполните следующие действия: р= а * (в + с). результат переведите в шестнадцатеричную систему счисления.стрелочка "\/" указывает на то,что внизу
1.var a,b:integer; begin writeln('введите числа (0 признак окончания ввода)'); readln(a); b:=1; while (a<>0) do begin readln(a); if (a mod 2 = 0) and (a<>0) then b:=b*a; end;writeln('произведение чётных чисел последовательности ',b); end. 2.var a,b:integer; begin b:=0; a:=1; while (a<=10000) do begin if (a mod 10 = 0) then b:=b+1; a:=a+1; end; writeln('количество круглых чисел ',b); end. 3.var a,b:integer; begin writeln('введите числа (1 признак окончания ввода)'); readln(a); b:=0; while (a<>1) do begin readln(a); if (a mod 7 = 0) then b:=b+1; end; writeln('цифра 7 встречается ',b,' раз'); end. 4.var a,b:integer;begin writeln('введите числа (0 признак окончания ввода)'); b:=0; a:=1; while (a<>0) do begin readln(a); if (a<>0) then b:=a*a+b; end;writeln('сумма квадратов ',b); end.
const n=5;var i,j,s,p: integer; a: array [1..n,1..n] of integer; b,c: array [1..n] of integer;begin for i:=1 to n do for j:=1 to n do a[i,j]:=Random(100);{ вывод на экран } for i:=1 to n do begin for j:=1 to n do write(a[i,j]:4); writeln; end; { цикл по массиву } for j:=1 to n do {цикл по колонке } begin s:=0; p:=1; for i:=1 to n do {цикл по строке} if (a[i,j] mod 2 = 0) then p:=p*a[i,j] else s:=s+a[i,j]; if (p>1) then c[j]:=p else c[j]:=0; if (s>0) then b[j]:=s else b[j]:=0; end; writeln('массив для четных элементов'); for i:=1 to n do write(c[i]:10); writeln; writeln('массив для нечетных элементов'); for i:=1 to n do write(b[i]:4); end.
