Перевести с языка Pascal на язык C. k:=0;for var i:=2 to

Перевести с языка Pascal на язык C.

k:=0;
for var i:=2 to round(sqrt(N)) do // если число составное, то один из его сомножителей lt;= sqrt(N)
if N mod i = 0 then
begin
inc(k);
break;
end;

if kgt;0 then
writeln('Число ',N,' обычное')
else writeln('Число ',N,' составное');
end.

Vladik Blau 2019-08-09 05:32:32

На простоту кое-как по другому проверяют

Надежда Заклейкина 2019-08-09 05:34:09

k:=0; for var i:=2 to round(sqrt(N)) do // если число составное, то один из его сомножителей <= sqrt(N) if N mod i = 0 then begin inc(k); break; end; if k>0 then writeln('Число ',N,' обычное') else writeln('Число ',N,' составное'); end.