#include #include main(){ int key; printf("\n нажмите одну из курсорных клавиш: \n"); key = getch(); key = getch(); switch (key){ case 77: printf("стрелка вправо\n"); break; case 75: printf("стрелка влево\n"); break; case 72: printf("стрелка вверх\n"); break; case 80: printf("стрелка вниз\n"); break; default: printf(“нe стрелка\n"); }; getch(); } чего тут не так?

#include < stdio.h> #include < conio.h> main(){ int key; printf("\n нажмите одну из курсорных клавиш: \n"); key = getch(); key = getch(); switch (key){ case 77: printf("стрелка вправо\n"); break; case 75: printf("стрелка влево\n"); break; case 72: printf("стрелка вверх\n"); break; case 80: printf("стрелка вниз\n"); break; default: printf("не стрелка\n"); }; getch(); }

 

инклуды пустые, и кавычки какие-то корявые.

 

Const   st: array[1..3] of string = ('будапешт', 'рим', 'киев');   nas: array[1..3] of real = (9.9, 61.5, 44.3);   kr: array[1..3] of string = ('венгрия', 'италия', 'украина');   {сведения о численности населения по данным ресурса     countrymeters по состоянию на 03.07.2014} var   i: integer; begin   write('введите 1-венгрия, 2-италия, 3-украина -> ');   readln(i);   if i in [1..3] then       writeln('страна- ', kr[i], ', столица- ', st[i], ', население (млн. ', nas[i])   else       writeln('неверный ввод! ') end. тестовое решение: введите 1-венгрия, 2-италия, 3-украина -> 2 страна- италия, столица- рим, население (млн. 61.5

Function dec2oct(n: integer): string; var   c, s: string;   iquo, irem: integer; begin   s : = '';   iquo : = n;   while iquo < > 0 do   begin       irem : = iquo mod 8;       iquo : = iquo div 8;       str(irem, c);       s : = c + s   end;   if length(s) = 0 then result : = '0'   else result : = s end; var   m: array[1..8] of integer;   i: integer; begin   randomize;   for i : = 1 to 8 do   begin       m[i] : = random(10000);       writeln(m[i]: 5, '(10)=', dec2oct(m[i]), '(8)')   end end. тестовое решение:   973(10)=1715(8)   7245(10)=16115(8)   2511(10)=4717(8)   5136(10)=12020(8)   8002(10)=17502(8)   7101(10)=15675(8)   4277(10)=10265(8)   5916(10)=13434(8) если вместо функции нужна процедура, достаточно заменить несколько строчек. procedure dec2oct(n: integer; s: string); var   c: string;   iquo, irem: integer; begin   s : = '';   iquo : = n;   while iquo < > 0 do   begin       irem : = iquo mod 8;       iquo : = iquo div 8;       str(irem, c);       s : = c + s   end;   if length(s) = 0 then s : = '0' end;