Найти сумму целых положительных чисел из промежутка от А до В, кратных 4 (значения переменных А и В вводятся клавиатуры)
Найти сумму целых положительных чисел из промежутка от А до В, кратных 4 (значения переменных А и В вводятся клавиатуры)
Гость
Ответ(ы) на вопрос:
Гостьvar A,B,i,sum:integer; begin read(A,B); sum:=0; for i:=A to B do if i mod 4 = 0 then sum:=sum+i; writeln(sum); end. Вопросы в ЛС
Не нашли ответ?
Похожие вопросы