Українська: Подайте текст «Любіть Україну, як сонце, любіть» у вигляді коду, використовуючи таблицю кодів міжнародного стандарту Unicode Таблицю кодів знайдіть інтернеті. Русский: Подайте текст «Любите Украину, как солнце, любите» в виде кода, используя таблицу кодов международного стандарта Unicode Таблицу кодов найдите интернете у меня совсем нету времени...

10 REM создание массива А для заполнения списком из 10 чисел 20 DIM A (1,10): 30 REM начало цикла для заполнения массива 40 FOR I=1 TO 10 50 REM формирование запроса на ввод I-го числа 60 PRINT “Введите”, I, “-ое число” 70 REM ввод I-го числа 80 INPUT J 90 REM присвоение I-му элементу массива значения числа 100 A(I)=J 110 NEXT I 120 REM цикл сортировки списка чисел по возрастанию 130 FOR I =1 TO 9 140 FOR J=I+1 TO 10 150 REM условие для упорядочения списка 160 IF A(I)>A(J) THEN b=A(I):A(I)=A(J):A(J)=b 170 NEXT J, I 180 REM цикл вывода упорядоченного списка на экран 190 FOR I=1 TO 10 200 PRINT А(I) 210 NEXT I Работа основного алгоритма (130-170 шаги программы) проверена на визуал бейсике. Работает!

program hungry;

var

 time: real;

begin

 write('Который час? ');

 readln(time);

 if (time < 0) or (time >= 24) or (frac(time) >= 0.6) then

   writeln('У кого-то часы барахлят...')

 else if (time >= 7) and (time < 13) or (time >= 15) and (time < 19) then

   writeln('Отлично, булочная работает!')

 else if (time >= 8) and (time < 14) or (time >= 16) and (time < 20) then

   writeln('Можно до хлебного магазина дойти.')

 else if (time >= 8) and (time < 24) then

   writeln('Голод не тетка, придется в супермаркет ехать...')

 else

   writeln('Извини, друг, но сегодня хлеба не будет, сиди дома!');

end.