Напишите программу которая в диапазоне целых двухзначных чисел от c до b определяет количество нечетных чисел кратных 3 и не начинающихся на 2 и 4

Question

Информатика

Савёл

18 июля, 09:52

Напишите программу которая в диапазоне целых двухзначных чисел от c до b определяет количество нечетных чисел кратных 3 и не начинающихся на 2 и 4

+3

Ответы (1)

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

Кирюня · Answer 1

Var a, b, c, d:integer;

begin

b:=0;

writeln ('Введите c') ;

readln (c) ;

writeln ('Введите d') ;

readln (d) ;

for a:=c to d do

begin

if (a mod 2=1) and (a mod 3=0) and (a div 102) and (a div 104) then b:=b+1;

end;

writeln ('Количество чисел равняется ', b) ;

end.