Сменить регистр символа Напишите функцию CaseChange(c), меняющую регистр символа, то есть переводящую заглавные буквы в строчные, а строчные — в заглавные, остальные символы меняться не должны. В решении нельзя использовать циклы. В решении нельзя использовать численные константы с неочевидным значением.

Примеры
Ввод
Вывод
n
N
4
4
O
o

решить эту задачу

«alt+[shift]+tab» — переключение между окнами; «alt+f4» — закрыть активное окно; «alt+space (пробел)» — открытие системного меню окна. с него можно закрывать, сворачивать, разворачивать, перемещать и изменять размер окна без мыши; «alt+shift» или «ctrl+shift» — переключить язык; «ctrl+alt+delete» — открытие окна «безопасность windows»; «win» — открытие/закрытие меню «пуск»; «ctrl+esc» — открытие/закрытие меню «пуск»; «win+d» — свернуть/восстановить все окна, включая диалоговые; «win+e» — открытие программы «проводник»; «win+r» — открытие окна «запуск программы» («пуск» --> «выполнить…»); «win+f» — открытие окна для поиска; «win+l» — заблокировать компьютер; «win+m» — сворачивает все окна, кроме диалоговых; «win+pause/break» — открытие окна «система»; «ctrl+shift+esc» — открытие окна «диспетчер »; «print screen» — поместить снимок всего экрана в буфер обмена. в ms-dos использовалась для вывода на принтер содержимого экрана; «alt+print screen» — поместить снимок активного окна в буфер обмена;

папирусы хранили в виде свитков, сворачивая длинную папирусную ленту, склеенную из отдельных листов, в трубку. 

uses graph;                                           {подключен модуль graph}var x,y,h: integer; procedure grinit;       {процедура инициализации режима графики}var      graphdriver: integer;                   {для графического адаптера}      graphmode  : integer;                   {для графического режима}      errorcode  : integer;                   {для кода ошибки}begin      graphdriver : =detect;                   {режим автоопределения}      initgraph(graphdriver ,graphmode,''); {инициализация}      errorcode : =graphresult;             {результат инициализации}      if errorcode < >   grok then        {если не успешно,}      begin            writeln('ошибка графики: ',grapherrormsg(errorcode ));             writeln('программа остановлена.');             halt(1)      end {if}end; begin      grinit;                                                           {вызов инициализации}      x: =getmaxx div 2;       y: =getmaxy div 2;       h: = 30; {кол-во шагов до финиша}      while x+y> 0 do      begin        cleardevice;             circle(x, y, 10);             delay(100);             x: = x + getmaxx div h;             y: = y - getmaxy div h;       end;       readln;                                                 {пауза до нажатия }      closegraph;                                 {закрытие графического режима}end.

qbasic

? "введите стоимость книг и сумму денег соответсвенно через запятую"

input a,b

if a=b then 1 else 2

1 ? "" : goto 10

2 if a> b then 3 else 4

3 a-b=c

? "не хватает денег,доплатите"; c : goto 10

4 b-a=r

? "ваша здача"; r

10 end