Помогите! Напишите программу в Паскаль, которая на отрезке от 10 до b находит сумму всех нечетных чисел, кратных трем. (10

Question

Информатика

Епифаний

2 июля, 07:29

Помогите! Напишите программу в Паскаль, которая на отрезке от 10 до b находит сумму всех нечетных чисел, кратных трем. (10

+4

Ответы (1)

Знаете ответ на вопрос?

Алевтина · Answer 1

Program pr1;

var i, b:integer; a, s:real;

begin

readln (b) ;

for i:=1 to b-9 do

begin

readln (a) ;

if (a mod 3 = 0) and (a mod 2 0) then

s:=s+a;

end;

writeln (s) ;

end.