Помогите как составить эту программу вычисления чисел кратных не только 2 но и 3.

var x, y: integer;

begin

y:=0;

For x: = 10 to 99 do

if x mod 2=0 then

y:=y+1;

writeln ('количество чисел, кратных 2, равно ', y) ;

end.

Question

Информатика

Евстафия

6 марта, 18:27

Помогите как составить эту программу вычисления чисел кратных не только 2 но и 3.

var x, y: integer;

begin

y:=0;

For x: = 10 to 99 do

if x mod 2=0 then

y:=y+1;

writeln ('количество чисел, кратных 2, равно ', y) ;

end.

+5

Ответы (1)

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

Апфия · Answer 1

Program aliona;

var

n, k, i:integer;

begin

writeln ('n=') ;

readln (n) ;

k:=0;

for i:=1 to n do

if (i mod 2=0) and (i mod 3=0)

then

inc (k) ;

writeln ('k=', k) ;

readln;

end.