19
ИюльПожалуйста, помогите 1. He производя деления. укажите из данных чисел 15. 24, 28, 36. 50. 55 будет кратно…
Предмет: Информатика
Уровень: 5 - 9 класс
Пожалуйста, помогите
1. He производя деления. укажите из данных чисел 15. 24, 28, 36. 50. 55 будет кратно число 131670. Ответ обоснуйте.
2. Не находя суммы чисел 3214 + 654 + 908. установите, делится ли она на 3 (ответ обоснуйте).
3. Используя алгоритм распознавания простых чисел, установите простыми или составными являются числа 217 и 551. (ответ обоснуйте).
Ответ:
var a,b,c,d,e,f,g:Integer;
begin
e:=0;f:=999999;
for a:=523456 to 578925 do
begin
b:=a;c:=0;d:=2;
repeat
if b mod d=0 then begin b:=b div d;inc(c);end else inc(d);
until (b=d)or(c=2);
if (b=d)and(b<a) then begin inc(e);if f>abs(b-a div b) then begin f:=abs(b-a div b);g:=a;end;end;
end;
WriteLn(e,#32,g);
end.
Вроде как, то)