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

58684 58684    1   30.05.2019 08:20    10

Ответы
Аааоо0 Аааоо0  30.06.2020 07:44
Uses crt;
var i,k:integer;
begin
     k:=0;
     for i:=1000 to 9999 do
         if (i mod 2<>0) and (i mod 3<>0) then inc(k);
     writeln(k);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика