Регистрация
KristinaE16
28.01.2020 16:34
Информатика
Есть ответ 👍

ПЕРЕНЕСТИ НА ПАЙТОН,Даны натуральные числа от 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.

300
500
Посмотреть ответы 2

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

wewewewwe
wewewewwe
4,7(96 оценок)

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.

Объяснение:

olaved1
olaved1
4,5(93 оценок)

Взломы,

Иногда можно даже не узнать о том что тебя взломали, а информация уже известна злоумышленнику.

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