Предмет: Информатика,
автор: Zor34
Даны натуральные числа от 1 до 50. Найти сумму тех из них, которые делятся на 5 или на 7.ПАСКАЛЬ
ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Ответы
Автор ответа:
34
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.
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.
mmmegakilll:
Если не будет работать - отпиши, я скрин программы скину, мог удалить случайно что-то при переносе
Похожие вопросы
Предмет: Қазақ тiлi,
автор: ВероникаП1
Предмет: Русский язык,
автор: p0308k2005
Предмет: Русский язык,
автор: emilbahtiarov
Предмет: Математика,
автор: Pro1905
Предмет: Английский язык,
автор: vikamokra123