Написать

на языке Паскаль алгоритм нахождения количества натуральных четырехзначных

чисел, каждое из которых не делится ни на 2, ни на 3.

Question

Альба

6 марта, 23:05

+4

Ответы (1)

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

Поляша · Answer 1

Uses crt;

var i, k:integer;

begin

k:=0;

for i:=1000 to 9999 do

if (i mod 20) and (i mod 30) then inc (k) ;

writeln (k) ;

end.

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