Результат: ТМРРО
Const abc = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯА';
Var s : String;
Function Alg(ss : String) : String;
Var i : Integer;
Begin
If Odd(Length(ss)) then Insert(ss[(Length(ss) div 2)+1],ss,(Length(ss) div 2)+1) else ss:='С'+ss;
For i:=1 to Length(ss) do If Pos(ss[i],abc)>0 then ss[i]:=abc[Pos(ss[i],abc)+1];
Alg:=ss;
end;
Begin
{ Readln(s);
Writeln(Alg(s)); }
Writeln(Alg(Alg('КОМ')));
end.
If (x>=6) and (x<=8) then begin
z:= x div 2 ;
ответ 8 div 2 = 4 z:=4
1 вариант:
If (a>0) or (a=0) and (b>0) or (b=0) and (c>0) or (c=0) Then s:=a+b+c Else
If (a>0) or (a=0) and (b>0) or (b=0) and (c<0) Then s:=a+b Else
If (a>0) or (a=0) and (c>0) or (c=0) and (b<0) Then s:=a+c Else
If (b>0) or (b=0) and (c>0) or (c=0) and (a<0) Then s:=b+c Else
If (a<0) and (b<0) and (c>0) or (c=0) Then s:=c Else
If (a<0) and (c<0) and (b>0) or (b=0) Then s:=b Else s:=a;
2 вариант:
If (a>0) or (a=0) Then s:=s+a;
If (b>0) or (b=0) Then s:=s+b;<span>
If (c>0) or (c=0) Then s:=s+c;</span>
Ответ:
С точки зрения информатики наиболее важными представляются следующие общие качественные свойства: достоверность, полнота, точность, актуальность, полезность, ценность, своевременность, понятность, доступность, краткость и пр. Объективность информации
Визуальная — воспринимаемая органами зрения.
Звуковая — воспринимаемая органами слуха.
Тактильная — воспринимаемая тактильными рецепторами.
Обонятельная — воспринимаемая обонятельными рецепторами.
Вкусовая — воспринимаемая вкусовыми рецепторами.