Задать вопрос
7 сентября, 03:48

Используя цикл "for", "while", repeat" найти сумму чисел от 10 до 50 кратных 3 или 5.

+5
Ответы (1)
  1. 7 сентября, 06:59
    0
    Var i, s:integer;

    begin

    for i:=10 to 50 do

    if (i mod 3 = 0) or (i mod 5 = 0) then s+=i;

    writeln (s) ;

    end.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Используя цикл "for", "while", repeat" найти сумму чисел от 10 до 50 кратных 3 или 5. ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы