1. при передаче сообщения по каналам связи возникли сильные искажения. восстановите исходное сообщение, зная, что в результате помех были потеряны буквы в, д и все гласные (о, е, а, ё, и), а исходное сообщение состояло из 50 букв (не считая пробелов и точки). скрснь н грм прйт прлнй жь с грзй
159
383
Ответы на вопрос:
Function prost(n: integer): boolean; var i: integer; begin prost: =true; if n< 2 then prost: =false else for i: =1 to n div 2 do if ((n mod i)=0) and (i< > 1) then prost: =false; end; var n,k,n: integer; begin writeln ('введите n'); readln(n); for k: =1 to n do begin writeln ('введите число'); readln (n); if prost(n) then writeln ('простое') else writeln ('золотое'); end; end.
Популярно: Информатика
-
ushanoval20.12.2020 17:13
-
даринкал08.08.2022 00:16
-
asiper4ik28.05.2020 00:03
-
Makc85725.08.2022 02:55
-
pycya200606.10.2022 13:29
-
Dillzy30.04.2020 16:20
-
omelyanovichni30.12.2020 09:17
-
ученикпро121.12.2021 15:31
-
maryana07080317.01.2021 04:36
-
MasterPvP201601.01.2021 08:31