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. (ответ обоснуйте).
1)
var i, sum: integer;
begin
sum:= 0;
for i:= 1 to 100 do sum:= sum + i;
write(sum);
end.
2)
var i, sum: integer;
begin
sum:= 0;
for i:= 11 to 50 do sum:= sum + i * sqr(i);
write(sum);
end.
3)
var i, sum: integer;
begin
sum:= 0;
for i:= 10 to 99 do if i mod 2 = 1 then sum:= sum + i;
write(sum);
end.
4)
var i, sum: integer;
begin
sum:= 0;
for i:= 50 to 90 do sum:= sum + sqr(i);
write(sum);
end.
5)
var i, sum: integer;
begin
sum:= 0;
for i:= 10 to 99 do if i mod 2 = 0 then sum:= sum + i;
write(sum);
end.