netznanie
22.04.2021 00:26

ПЕРЕНЕСТИ НА ПАЙТОН,Даны натуральные числа от 1 до 50. Определите сумму тех из них, которые делятся на 5 или на 7.СА
var i,k: integer;
begin
k:=0;
For i:=1 to 50 do
If (i mod 5=0) or (i mod 7=0) then k:=k+i;
Writeln('Сумма этих чисел: ',k);
end.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
НЕГЛУПЫЙ26
15.04.2020 21:30

Program sadadasf;

var i,k: integer;

begin

k:=0;

For i:=1 to 50 do

If (i mod 5=0) or (i mod 7=0) then k:=k+i;

Writeln('Сумма этих чисел: ',k);

end.

Объяснение:

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота