Разберите программу,которая находит количество двузначных чисел,кратных 7
Разберите программу,которая находит количество двузначных чисел,кратных 7
Гость
Ответ(ы) на вопрос:
ГостьНа паскале:
var k,i:integer;
begin
for i:=10 to 99 do
if (i mod 7) = 0 then
k:=k+1;
writeln(k)
end.
Не нашли ответ?
Похожие вопросы