Роззе
28.11.2022 15:12

Переведите программу из паскаля в питон var
numDel, i, j: longint;
d: array[1..2] of longint;
begin
for i := 174457 to 174505 do begin
numDel := 0;
for j := 2 to i div 2 do begin
if i mod j = 0 then begin
numDel := numDel + 1;
if numDel > 2 then break;
d[numDel] := j;
end;
end;
if numDel = 2 then writeln(d[1], ' ', d[2]);
end;
end.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
07спиннер07
05.06.2022 02:53
+ ноутов: мобильность, возможность работы от аккумулятора.
- ноутов: быстрый нагрев всех компонентов, быстрый разряд аккумулятора, слабая вычислительная по сравнению с ПК
Не возможность работы с ресурсоемкими приложениями, т.к есть ограничение на озу (обычно ставят не более 2-4 гб и медленную).Слабый процессор, по сравнению с процессором пк.
+пк: высокая вычислительная высокая скорость обработки данных, высокая надежность хранения данных долговременной работы без перегрева компонентов.
-пк: невозможность работы от аккумулятора, трудно перевозимый, громоздкий, шумный (если охлаждение по средствам кулеров).
0,0(0 оценок)
Ответ:
nastyakotika
03.02.2021 13:05
Программа без массива:
const n=10;
var a,i,max,min:integer;
begin
Randomize;
min:=69; max:=15;
for i:=1 to n do
 begin
 a:=random(55)+15;
 write(a,' ');
 if a>max then max:=a;
 if a<min then min:=a;
 end;
writeln;
writeln('max-min = ',max,'-',min,' = ',max-min);
end.

Пример:
21 16 40 57 41 63 48 50 54 45 
max-min = 63-16 = 47

Программа с массивом:
const n=10;
var a:array[1..n] of integer;
i,max,min:integer;
begin
Randomize;
for i:=1 to n do
 begin
 a[i]:=random(55)+15;
 write(a[i],' ');
 end;
writeln;
min:=a[1]; max:=a[1];
for i:=2 to n do
 begin
 if a[i]>max then max:=a[i];
 if a[i]<min then min:=a[i];
 end;
writeln('max-min = ',max,'-',min,' = ',max-min);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота