Регистрация
нрррлртптп
18.01.2022 11:53
Информатика
Есть ответ 👍

Оптимизируйте программы ниже, так что бы они выполнялись за меньшее количество операций. 1) var n , m :integer;

k : real;

begin

readln(n);

m:=0;

while n>0 do begin

m:=m+2*n-1;

n:=n-1;

end;

k:=trunc(sqrt(m));

writeln(k);

end.

2) var n , m, i :integer;

begin

readln(n);

m:=2;

while m
if n mod m = 0 then i:=i+1;

m:=m+1;

end;

if i=0 then writeln(n);

end.

136
198
Посмотреть ответы 1

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

Nikita4539
Nikita4539
4,8(40 оценок)

сори ещё не учили

Объяснение:

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