Паскаль. с клавиатуры вводится целое число от 1 до 1000, обозначающая сумму в рублях. программа должна напечатать эту сумму прописью. пример: пятнадцать рублей.

Var   m, n: integer;   s1, s2, s3: string;   ms: array[1..9] of string;   md: array[1..9] of string;   m1: array[11..19] of string;   me: array[1..9] of string;   flag: boolean; begin     flag : = false; { пока ничего не выведено }   s1 : = 'рубль';   s2 : = 'рубля';   s3 : = 'рублей';   ms[1] : = 'сто'; ms[2] : = 'двести'; ms[3] : = 'триста'; ms[4] : = 'четыреста';   ms[5] : = 'пятьсот'; ms[5] : = 'пятьсот'; ms[6] : = 'шестьсот'; ms[7] : = 'семьсот';   ms[8] : = 'восемьсот'; ms[9] : = 'девятьсот';   md[1] : = 'десять'; md[2] : = 'двадцать'; md[3] : = 'тридцать'; md[4] : = 'сорок';   md[5] : = 'пятьдесят'; md[6] : = 'шестьдесят'; md[7] : = 'семьдесят';   md[8] : = 'восемьдесят'; md[9] : = 'девяносто';   m1[11] : = 'одиннадцать'; m1[12] : = 'двенадцать'; m1[13] : = 'тринадцать';   m1[14] : = 'четырнадцать'; m1[15] : = 'пятнадцать'; m1[16] : = 'шестнадцать';   m1[17] : = 'семнадцать'; m1[18] : = 'восемнадцать'; m1[19] : = 'девятнадцать';   me[1] : = 'один'; me[2] : = 'два'; me[3] : = 'три'; me[4] : = 'четыре'; me[5] : = 'пять';   me[6] : = 'шесть'; me[7] : = 'семь'; me[8] : = 'восемь'; me[9] : = 'девять';     write('введите целое число от 1 до 1000: ');   readln(m);   if (m < 1) or (m > 1000) then writeln('шутки шутим? ')   else   if m = 1000 then writeln('одна тысяча ' + s3)       else   begin           { сотни }       n : = m div 100;       if n > 0 then       begin           write(ms[n]);           flag : = true       end;           { десятки }       m : = m mod 100;       if m = 0 then writeln(' ', s3)       else       begin           if (m > 10) and (m < 20) then           begin               if flag then write(' ');               writeln(m1[m], ' ', s3)           end           else           if m > 0 then           begin               n : = m mod 10;               m : = m div 10;               if m > 0 then               begin                   if flag then write(' ') else flag : = true;                   write(md[m])               end;               if n < > 0 then               begin                   { единицы }                   if flag then write(' ');                   write(me[n], ' ');                   case n of                       1: writeln(s1);                       2..4: writeln(s2);                   else writeln( s3)                   end               end               else writeln(' ', s3)           end       end   end end. тестовое решение: введите целое число от 1 до 1000: 314 триста четырнадцать рублей

#: всем известно, что книга состоит из листов, каждый из которых содержит по две страницы. все страницы в книге пронумерованы таким образом, что первый лист содержит страницы с номерами 1 и 2, второй лист – с номерами 3 и 4 и так далее до последнего листа. вам заданы номера двух страниц в книге. требуется определить количество листов книги, которые располагаются между листами с указанными номерами страниц. входные данные входной файл input.txt содержит два натуральных числа a и b – номера страниц в книге. числа не превосходят значения 1018. выходные данные в выходной файл output.txt выведите ответ на a,b=map(int, #определяем номер первого листа if a%2! =0:       a+=1 a=a//2 #определяем номер второго листа if b%2! =0:       b+=1 b=b//2 #выводим ответ print(b-a-1) #решал на pythone если необходим другой язык !

1определите место хранения исполняемого файла jsc.exe на компьютере. путь к файлу определяется именем и расположением каталогов операционной системы и версией используемого модуля .net framework (рекомендуется использование самой последней версии). данное действие необходимо для изменения переменной среды path для получения возможности осуществлять запуск компилятора из любой папки. наиболее вероятным выглядит путь: c: \windows\microsoft.net\framework\vномер_версии.2вызовите контекстное меню значка «компьютер» на рабочем столе кликом правой кнопки мыши и укажите пункт «свойства».3раскройте ссылку «дополнительные параметры» в открывшемся окне панели и перейдите на вкладку «дополнительно» нового диалогового окна.4выполните нажатие кнопки «переменные среды» и укажите пункт path в разделе «системные переменные».5нажмите кнопку «изменить» и найдите поле «значение переменной» в открывшемся диалоговом окне «изменение системной переменной».6введите следующее значение в конец найденной строки: ; полный_путь_к_файлу_jsc.exe. подтвердите применение выбранных изменений нажатием кнопки ok.7нажмите кнопку «пуск» для вызова главного меню системы и перейдите в пункт «выполнить» для выполнения операции запуска инструмента «командная строка».8введите значение cmd в поле «открыть» и нажмите кнопку ok для подтверждения выполнения команды запуска.9введите значение jsc файл.js в текстовое поле командной строки и нажмите функциональную клавишу enter для создания исполняемого файла программы или укажите значение jsc /target: library файл.js для получения нужного файла библиотеки .dll.10используйте значение jsc /out: новое_имя.exe файл.js для создания исполняемого файла с новым именем или введите значение jsc \debug файл.js для выполнения компиляции с отображением отладочной информации.11нажмите функциональную клавишу enter для подтверждения применения выбранных изменений.