Найти количество натуральных двузначных чисел, каждое из которых не делится ни на 2, ни на 13(паскаль)
Найти количество натуральных двузначных чисел,
каждое из которых не делится ни на 2, ни на 13(паскаль)
Гость
Ответ(ы) на вопрос:
Гостьvar a,i:integer;
begin
a:=0;
for i = 10 to 99 do
begin
if ((i mod 2)<>0) and ((i mod 13)<>0) then
a:=a+1;
end;
writeln (a);
end.
вроде так
Не нашли ответ?
Похожие вопросы