Есть ответ 👍

1. при передаче сообщения по каналам связи возникли сильные искажения. восстановите исходное сообщение, зная, что в результате помех были потеряны буквы в, д и все гласные (о, е, а, ё, и), а исходное сообщение состояло из 50 букв (не считая пробелов и точки). скрснь н грм прйт прлнй жь с грзй

159
383
Посмотреть ответы 2

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


Ввоскресенье над городом пройдёт проливной дождь с грозой

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.

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