Var n,t,s,d,e:integer; begin writeln(''); repeat writeln('Введите сумму в рублях<=1000'); readln(n); until (n>0) and (n<=1000); t:=n div 1000; n:=n-t*1000; s:=n div 100; n:=n-s*100; d:=n div 10; if d<>1 then begin n:=n-d*10; e:=n; end; case t of 1:write('тысяча '); end; if s>=0 then case s of 1:write('сто '); 2:write('двести '); 3:write('триста '); 4:write('четыресто '); 5:write('пятьсот '); 6:write('шестьсот '); 7:write('семьсот '); 8:write('восемьсот '); 9:write('девятьсот '); end; if d>=0 then case d of 1: case n of 10: write('десять '); 11: write('одиннадцать '); 12: write('двенадцать '); 13: write('тринадцать '); 14: write('четырнадцать '); 15: write('пятнадцать '); 16: write('шестнадцать '); 17: write('семнадцать '); 18: write('восемнадцать '); 19: write('девятнадцать '); end; 2:write('двадцать '); 3:write('тридцать '); 4:write('сорок '); 5:write('пятьдесят '); 6:write('шестьдесят '); 7:write('семьдесят '); 8:write('восемьдесят '); 9:write('девяносто '); end; if e>=0 then case e of 1:write('один '); 2:write('два '); 3:write('три '); 4:write('четыре '); 5:write('пять '); 6:write('шесть '); 7:write('семь '); 8:write('восемь '); 9:write('девять '); end; if (e=1) then write('рубль ') else if (e=0)or(e>4) then write('рублей ') else write('рубля '); end.
vikanikita
15.12.2021
1. В системное программное обеспечение входят: A) языки программирования (язык — не программа); ✔ операционные системы; C) совокупность программ и устройств общего назначения (это ПО); D) игры (это прикладное ПО);
2. Путь к файлу- это…. A) поименованная область на диске (это файл); B) часть ОС, определяющая организации, хранения и именования файлов на носителях информации (это файловая система). C) список имён каталогов, собранных в корневом каталоге; ✔ последовательность из имён каталогов, разделённых знаком «\»;
3. Отметьте правильную запись имени текстового файла? A) basa-com; ✔ basa.txt (имя.расширение, txt — расширение текстовых файлов); C) :basa.txt; D) BASA.SYS;
4. Какое расширение имеют исполняемые файлы? A) docx, txt (word, текст) ✔ com, exe C) txt, sys (текст, что-то системное) D) sys, com (что-то системное, исполняемый)
5. Как называется наука об общих закономерностях получения, хранения, преобразования информации в сложных управляющих системах (например, машины, живые организмы, общество). A) информатика B) физика ✔ кибернетика D) история
6. Кто в 1950 году написал статью «Может ли машина мыслить»? A) Винер B) Колмогоров ✔ Алан Тьюринг D) Ампер
7. Кто в 1946 году предложил теорию решения изобретательских задач (изучение проблем технического творчества систем искусственного интеллекта)? ✔ Альтшуллер B) Полетаев C) Ломоносов D) Колмогоров
8. Электронная таблица предназначена для: ✔ обработки преимущественно числовых данных, структурированных с таблиц; B) упорядоченного хранения и обработки значительных массивов данных; C) визуализации структурных связей между данными, представленными в таблицах; D) редактирования графических представлений больших объемов информации.
9. В электронной таблице основной элемент рабочего листа – это: ✔ ячейка; B) строка; C) столбец; D) формула.
10. Выберите верный адрес ячейки в электронной таблице: A) 11D; ✔ F12 (последовательность латинских букв, потом номер строки); C) AБ-3; D) B1A.
11 Выражение 5(A2+C3):3(2B2-3D3) в электронной таблице имеет вид: A) 5(A2+C3)/3(2B2-3D3) ; B) 5*(A2+C3)/3*(2*B2-3*D3) ; ✔ 5*(A2+C3)/(3*(2*B2-3*D3)) ; D) 5(A2+C3)/(3(2B2-3D3)) .
12. Чему будет равно значение ячейки С1, если в нее ввести формулу =СУММ(A1:A7)/2: Нет приложения
13. Первая позиционная система счисления была придумана: ✔ в древнем Вавилоне (шестидесятиричная); B) в древней Индии; C) в древнем Китае; D) в древнем Египте.
14. Число, записанное в римской системе счисления CDXIV, равно: A) 1595; ✔ 414 (что-то... IV должно оканчиваться на 4); C) 595; D) 692.
15. Выберите правильную запись числа в десятичной системе счисления 63910 в развернутой форме: ✔ 6∙104+3∙103+9∙102+1*101 B) 6∙103+3∙102+9∙101+1*100 C) 9∙102+3∙101+6∙100 D) 600+30+9