Var
s:string;
n:integer;
begin
Write('Вводите: '); Readln(s);
n:=Length(s);
s:=Copy(s,n-2,3)+Copy(s,4,n-6)+Copy(s,1,3);
Writeln(s)
end.
**************************************************
var
s:string;
c:char;
i,n:integer;
begin
Write('Вводите: '); Readln(s);
n:=Length(s);
for i:=1 to 3 do begin
c:=s[i]; s[i]:=s[n-3+i]; s[n-3+i]:=c
end;
Writeln(s)
end.
Результат
Вводите: Информатика
икаорматИнф
v - значок логического сложения.
А = 0.
А и B = 0
Это будет противоречиво, если B = 1.
<span>3. Вибрати значок програми<span>
</span><span>1. Увімкнути живлення монітора та системного блока</span><span>
</span><span>6. Дочекатися завантаження вікна програми</span><span>
</span><span>4. Дочекатись, доки вказівник миші набере вигляду
стрілки</span><span>
</span><span>5. Двічі клацнути кнопкою миші</span><span>
</span><span>10. Клацнути на кнопці ПУСК</span><span>
</span><span>9. Дочекатись, доки вікно програми закриється</span><span>
</span><span>11. Обрати кнопку ЗАВЕРШЕННЯ РОБОТИ</span><span>
</span><span>12. Дочекатись, поки індикатор на системному блоці
не погасне</span><span>
</span><span>7. У вікні програми виконати вказівку ЗАКРИТИ</span><span>
</span><span>2. Дочекатись, доки відобразиться РОБОЧИЙ СТІЛ</span><span>
</span><span>8. <span>Якщо не передбачено окремого способу завершення
роботи програми, натиснути Закрити.</span></span></span>
При составлении таблиц истинности количество строк зависит от количества логических переменных, а количество столбцов - от количества логических операций в выражении.