Найди сумму положительных нечётных чисел из промежутка от a до b , делящихся без остатка на 3
Найди сумму положительных нечётных чисел из промежутка от a до b , делящихся без остатка на 3
Гость
Ответ(ы) на вопрос:
Гостьvar a, b, i, Summ:integer; begin Summ := 0; write('a = '); readln(a); write('b = '); readln(b); for i := a to b do if (i > 0) and (i mod 3 = 0) then inc(Summ, i); writeln('Summ = ', Summ); readln; end.
ГостьProgram prom;
Var a, b, i, s: integer;
Begin
Readln (a, b);
For i:= a to b do
If (i > 0) and (i mod 3 = 0) and (i mod 2 = 1) then
s:=s+i;
Writeln (s);
Readln;
End.
Не нашли ответ?
Похожие вопросы