Регистрация
GeCUri
14.05.2023 16:05
Информатика
Есть ответ 👍

Запишите программы по информатике на все 3 картинки напишите кто знает в интернете не получается найти очень сильно надо !!​

196
234
Посмотреть ответы 1

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

Animashka11
Animashka11
4,6(45 оценок)
Var a,flag,i: integer; begin readln(a); flag: =0; for i: =2 to a do begin  if i< > a then if a mod i=0 then  begin flag: =1; break; end;   end; if flag=1 then writeln('no') else writeln('yes') end.

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