Регистрация
Taddi
01.08.2020 18:29
Информатика
Есть ответ 👍

Заполни пропуски в программе вывод на экран кубов чисел от 12 до 6.​...

207
266
Посмотреть ответы 2

Ответы на вопрос:

alekseislepsov2008
alekseislepsov2008
4,6(21 оценок)

var

m:integer;

begin

for m:=12 downto 6 do

writeln(m*m*m);

readln;

end.

lana231075
lana231075
4,8(9 оценок)
Program matr; uses crt; const m=(число); n=(число); var a: array[1..m,1..n] of integer; i, j: integer; max: real; k: boolean; function prost(x: integer): boolean; begin prost: =false; if x> 0 then if (x=1) or (x=2) then prost: =true else for i: =2 to x-1 do if mod(x, i) =0 then prost: =true; end; begin clr scr; for i: =1 to m do begin for j: =1 to n do begin write(' a[i,j] = '); read(a[i, j]) end; writeln end; max: =abs a[1,1]; k: =false; for i: =1 to m do for j: =1 to n do begin if abs(a[i, j]) > abs(max) then max: = a[i, j]; if prost(a[i, j]) then k: =true end; writeln('максимальный по модулю элемент равен ', max); if k then wrteln('матрица содержит хотя бы один простой элемент') else writeln('матрица не содержит простых элементов'); readln end.

Популярно: Информатика