1)вывести все натуральные числа от 100 до 200 кратные 52) подсчитать общее кол-во делителей числа 100
1)вывести все натуральные числа от 100 до 200 кратные 5
2) подсчитать общее кол-во делителей числа 100
Гость
Ответ(ы) на вопрос:
Гость1
var i:integer;
begin
for i:=100 to 200 do
if i mod 5=0 then write(i,' ')
end.
2
var i,n:integer;
begin
for i:=1 to 100 do
if 100 mod i=0 then n:=n+1;
write('Общее количество делителей 100, включая 1 и само число: ',n)
end.
Если 1 и само число 100 не учитывать, то третья строка сверху должна иметь вид:
for i:=2 to 99 do
Не нашли ответ?
Похожие вопросы