Даны два числа. определить какой число имеет больше делителей. в паскале цикл
Ответы на вопрос:
var a,b,i,nda,ndb: integer;
begin
readln(a,b);
nda : = 0;
ndb : = 0;
for i : = 1 to a do
if (a mod i = 0) then inc(nda);
for i : = 1 to b do
if (b mod i = 0) then inc(ndb);
if (nda > ndb) then
writeln(a, ' has more divisors than ', b)
else if (ndb > nda) then
writeln(b, ' has more divisors than ', a)
else
writeln(a, ' and', b, ' has equal number of divisors')
end.
var a,b,i,n,k,z: integer; {k, z - количество делителей числа} begin readln(a,b); {cчитаем эти два числа} k : = 1; z : = 1; if a > b then n : = a else n : = b; for i : = 2 to n do begin if (a > = i) and (a mod i = 0) then k : = k + 1; if (b > = i) and (b mod i = 0) then z : = z +1 end; if k = z then write('одинаковое количество делителей') else if k > z then write('число a имеет больше делителей') else write('число b имеет больше делителей') end.
если что непонятно, как получается - пиши.
Популярно: Информатика
-
солнышко27908.10.2020 22:39
-
vazovskiy201303.01.2021 13:12
-
Arina090320.03.2023 11:54
-
Vania5401.06.2023 06:55
-
Kracylia13.08.2021 06:23
-
valiullina1260106.12.2021 05:27
-
sassshaaa20.04.2023 04:20
-
DarkZlo26.09.2021 15:28
-
АнгелКрови07.10.2021 11:49
-
mariyam210516.11.2020 08:24