Регистрация
SashaZanevskaya
Есть ответ 👍

Найти сумму делителей каждого из целых чисел от 50 до 70 (программа Паскаль)

226
465
Посмотреть ответы 2

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

nastya0514567
nastya0514567
4,7(11 оценок)
program z1;
uses crt;
var a,b,c,i: integer;
begin
for a:=50 to 70   do  begin i:=0;
  for b:=1 to a do
if a mod b = 0 then
     i:=i+b; writeln(a:4,i:5);
 end;
end.
dmitry113114
dmitry113114
4,4(43 оценок)

ответ: 9; 3.

Объяснение:

-x^2 + 12x -27;

a= -1; b=12; c= -27;

D= b^2 - 4ac;

D= 144 - 108 ;

D= 36.

D>0, значит два корня

первый:

x= -b-кореньD/2a;

x= -12-6/-2;

x= 9;

второй:

x= -b+кореньD/2a;

x= -12+6/-2;

x= 3.

Популярно: Другие предметы