Расшифруйте слово Ц Ж Г Ъ Г, закодированное с шифра Цезаря. Известно, что каждая буква исходного текста, - id1540394320221204 от pepeon11 04.12.2022 03:56

Question

Информатика: Расшифруйте слово Ц Ж Г Ъ Г, закодированное с шифра Цезаря. Известно, что каждая буква исходного текста, третьей после нее буквой в алфавите СОЧ​

pepeon11 · Accepted Answer

//Pascal ABC.NET v3.1 сборка 1172

//Продвинутый вариант

Var
n:integer;
begin
readln(n);
writeln('Summary=',range(1,n).Where(x -> x mod 3=0).where(x -> x mod 10=2).Sum);
writeln('Count=',range(1,n).Where(x -> x mod 3=0).where(x -> x mod 10=2).Count);
end.

//"Школьный" вариант
Var
i,n,sum,co:integer;
begin
readln(n);
for i:=1 to n do
if (i mod 3=0) and (i mod 10=2) then
   begin
    co:=co+1;
    sum:=sum+i;
   end;
writeln('Summary=',sum);
writeln('Count=',co);
end.

Пример ввода:
14
Пример вывода:
Summary=12
Count=1

Расшифруйте слово Ц Ж Г Ъ Г, закодированное с шифра Цезаря. Известно, что каждая буква исходного текста, третьей после нее буквой в алфавите СОЧ​

MOGZ ответил

Расшифруйте слово Ц Ж Г Ъ Г, закодированное с шифра Цезаря. Известно, что каждая буква исходного текста, третьей после нее буквой в алфавите СОЧ