Регистрация
Катя388891
17.11.2022 05:47
Информатика
Есть ответ 👍

Оптимизируйте программы ниже, так что бы они выполнялись за меньшее количество операций. 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.

193
244
Посмотреть ответы 1

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

samikzaki
samikzaki
4,4(16 оценок)
Program n1; function ger(x1,y1,x2,y2,x3,y3: real): real; begin ger: =abs((x1-x2)*(y3--y2)*(x3-x2))/2; end; var x1,y1,x2,y2,x3,y3,x4,y4,s: real; begin writeln('введите координаты вершины а: '); readln(x1,y1); writeln('введите координаты вершины b: '); readln(x2,y2); writeln('введите координаты вершины c: '); readln(x3,y3); writeln('введите координаты вершины d: '); readln(x4,y4); writeln('площадь abcd=',ger(x1,y1,x2,y2,x3,y3)+ger(x1,y1,x3,y3,x4,y4): 6: 2); end.

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