Регистрация
KatenaLipnitsk
12.03.2023 19:51
Информатика
Есть ответ 👍

В государственную очередь за пшеницей тонны пшеницы готовы к экспорту
спрятался. Тонны, центнеры этой пшеницы,
программа выражена в килограммах
компилировать.​

103
292
Посмотреть ответы 1

Ответы на вопрос:

dimar3256
dimar3256
4,7(42 оценок)

ответ:

объяснение:

var f1,f2: text; a,i,k: integer;

begin

assign(f1,'input.txt');

reset(f1);

assign(f2,'output.txt');

rewrite(f2);

readln(f1,a);

k: =0;

for i: =2 to round(sqrt(a)) do 

  if a mod i=0 then k: =k+1;

if k=0 then writeln(f2,a,' - простое число')

else writeln(f2,a,' - составное число');

close(f1); close(f2);

end.

пример:

файл input.txt:

43

файл output.txt:

43 - простое число

подробнее - на -

Популярно: Информатика