Ответ:
case m / 2 + 1 of // значения в case должно быть целым
Объяснение:
Program qq;
var a:array[1..n] of integer;
i,k,s,SA:integer;
begin
for i:=1 to N do readln(A[i]);
k:=0; SA:=0; s:=0;
for i:=1 to N do
If (A[i]mod2=0) and (A[i]mod3<>0) then begin
k:=k+1;
s:=s+A[i];
end;
SA:=s/k;
writeln(k, s, sa);
<span>end.</span>
// PascalABC.NET 3.3
begin
Print(ReadString.ToWords.Reverse.ElementAt(1))
end.
Пример ввода:
Если ты упал семь раз, встань восемь
Пример вывода:
встань
N N=2^i i K I=K*i
8 2^3 3 200 600
16 2^4 4 110 440
64 2^6 6 120 720
128 2^7 7 100 700
256 2^8 8 80 640
Зашифровать можно по разному, но есть у меня пару вариантов:
Морзе: -- *-*- **-
Шифрование цезаря(смещение на 16 букв) : Ьог
Шифрование Виженера (слово ключ : мяу) : щюж
Шифрование цифрами: 14 33 21