nyuuzyou/soloby huggingface dataset:
Вопрос: Какую структуру будет иметь алгоритм решения следующей задачи? Дано целое положительное число N. Если N – четное, то вычислить N!=1·2·3·…·N. Если N – нечетное, то вычислить сумму: 1+2+…+ N. Составьте блок-схему алгоритма решения и опишите его на языке Паскаль.
Категория: школьный раздел
Ответы:
блок схемапрограмма алгоритма
Вопрос: В каком виде составлялись программы для первых компьютеров?
Категория: школьный раздел
Ответы:
В двоичном коде
Вопрос: Почему ЯПВУ являются машинно-независимыми языками программирования?
Категория: школьный раздел
Ответы:
Потому что возможность программирования на одном из ЯПВУ зависит от наличия на компьютере транслятора с этого языка.
Вопрос: В какой парадигме программирования реализован язык Паскаль?
Категория: школьный раздел
Ответы:
К процедурной парадигме программирования
Вопрос: Что входит в структуру любого процедурного ЯПВУ?
Категория: школьный раздел
Ответы:
Элементы языка, организация действий над данными, организация данных
Вопрос: Из каких основных разделов состоит программа на Паскале?
Категория: школьный раздел
Ответы:
заголовок, раздел описания, раздел операторов
Вопрос: Этический принцип в проведении исследований в социуме, заключающийся в том, что исследование должно сопровождаться четким соглашением между исследователем и лицом (лицами), являющимся объектом исследования, определяется как 
(*ответ*) принцип честности и открытости в исследованиях 
 принцип необходимости и достаточности информированности клиента о целях, ходе и результатах исследований 
 принцип контролируемости хода исследования 
 принцип добровольности участия клиентов в исследованиях 
Этический принцип исследовательской практики, заключающийся в том, что клиент имеет право получать полную информацию о результатах исследований, определяется как 
(*ответ*) принцип необходимости и достаточности информированности клиента о целях, ходе и результатах исследований 
 принцип контролируемости хода исследования 
 принцип честности и открытости в исследованиях 
 принцип добровольности участия клиентов в исследованиях 
Эффективное использование ресурсов в социальной работе определяет для социального работника 
(*ответ*) профессиональный долг перед обществом и государством 
 моральные обязанности 
 профессиональные обязанности 
 моральный долг перед обществом и государством 
Ядром каждой профессиональной этической системы является понятие о 
(*ответ*) должном 
 значимом 
 необходимом 
 сущем
В механизме социальной защиты населения действует система правового регулирования отношений между участниками процесса:
(*ответ*) да
 нет
Введение дополнительных форм контроля в виде этических кодексов связано с нехваткой квалифицированных кадров:
(*ответ*) да
 нет
Гуманистический подход к пониманию человека предполагает веру в его созидательный потенциал:
(*ответ*) да
 нет
Кодекс профессиональной этики разрабатывается в соответствии с общими этическими нормами:
(*ответ*) да
 нет
На социальное самочувствие и психологический статус клиента оказывают воздействие личностные качества социального работника:
(*ответ*) да
 нет
Одной из функций Профессионально-этического кодекса социального работника России является обеспечение преемственности в действиях специалистов и социальных служб:
(*ответ*) да
 нет
Сведение этических норм социальной работы в единый профессионально-этический кодекс началось с нуля:
(*ответ*) нет
 да
Согласно одной из заповедей Этического кодекса социальных работников США, следует говорить клиенту, что он безнадежен:
(*ответ*) да
 нет
Социальный работник должен настаивать на изменениях в политике и законодательстве с целью улучшения социальных условий жизни и поддержания социальной справедливости:
(*ответ*) да
 нет
Социальный работник должен нести персональную ответственность за качество работы, которую он индивидуально ведет, назначает или исполняет:
(*ответ*) да
 нет
Социальный работник должен оказывать давление на клиента с целью изменить его убеждения и стиль жизни:
(*ответ*) да
 нет
Социальный работник может использовать конфликт между коллегой и руководителем в своих интересах и для укрепления своей позиции:
(*ответ*) да
 нет
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)
Вопрос: 2. Согласно классической политической экономии заработная плата как доход рабочего тяготеет:
 к физиологическому минимуму
 (*ответ к тесту*) к прожиточному минимуму
 к максимально возможному уровню
 к оптимальному уровню
3. У. Петти и П. Буагильбер – родоначальники теории стоимости, определяемой:
 (*ответ к тесту*) затратами труда (трудовая теория)
 производственными издержками (теория издержек)
 предельной полезностью
 на основе правовых факторов
 на основе дифференциации продукта
4. Согласно учению Ф. Кенэ о «чистом продукте» последний создается:
 в торговле
 в промышленности
 в банковской сфере
 в мелкотоварном хозяйстве
 (*ответ к тесту*) в сельскохозяйственном производстве
5. А. Тюрго единственным источником всякого богатства считает труд:
 торговца
 (*ответ к тесту*) земледельца (фермера)
 ремесленника
 ростовщика
 купца
6. «Невидимая рука» А. Смита – это: 
 механизм государственного управления экономикой
 (*ответ к тесту*) действие объективных экономических законов
 механизм хозяйствования, обусловленный божественным провидением
 действие природных законов
 взаимодействие законов природы и экономики
7. В структуре торговли на первое место А. Смитом поставлена:
 (*ответ к тесту*) внутренняя торговля
 внешняя торговля
 транзитная торговля
 мелкая торговля
 розничная торгвля
Категория: экономические
Ответы:
Правильные вопросы выделены по тесту
тест уже прошел свою проверку
надеюсь на плюс 1 голос к ответу
Вопрос: Входят ли в алфавит Паскаля русские буквы? Для чего их можно использовать?
Категория: школьный раздел
Ответы:
Да, использовать можно только для комментариев, символьных и текстовых константах.
Вопрос: Что такое идентификатор? Каковы правила задания идентификаторов?
Категория: школьный раздел
Ответы:
Идентификатор - символическое имя определенного программного объекта. Любая последовательность букв и цифр, начинающаяся с буквы.
Вопрос: Чем различаются разные типы данных целочисленных типов?
Категория: школьный раздел
Ответы:
Диапазоном значений, длиной в байтах, именем типа.
Вопрос: Чем различаются разные типы данных вещественных типов?
Категория: школьный раздел
Ответы:
Диапазоном значений, длиной в байтах, именем типа, количеством десятичных цифр в мантиссе
Вопрос: В чем разница между простыми и структурными типами?
Категория: школьный раздел
Ответы:
Простые типа — это числа. Структурные — массивы, строки, файлы и т.д
Вопрос: Что такое перечислимый и ограниченный типы данных?
Категория: школьный раздел
Ответы:
Перечисляемый тип — в программировании тип данных, чьё множество значений представляет собой ограниченный список идентификаторов.
Ограниченный тип данных представляет собой интервал значений порядкового типа, называемого базовым типом. Описание типа задаёт наименьшее и наибольшее значения, входящие в этот интервал.
Вопрос: Для следующих математических выражений запишите соответствующие арифметические выражения на Паскале: 
а) а + bх + cyz; 
б) [(ах - b)x + с]х - d; 
в)(a+b)/c + c/ab; 
г) (x+y)/a1 * a2/(x-y); 
д) 10^4 a + 31b/5; 
е) (1+x/2! + y/3!)/ (1+2/(3+xy).
Категория: школьный раздел
Ответы:
ответ к заданию
Вопрос: Запишите математические выражения, соответствующие следующим выражениям на Паскале: 
а) (p+q)/(r+s)-p*q/(r*s); 
б) 1E3+beta/(x-gamma*delta); 
в) a/b*(c+d)-(a-b)/b/c+1E-8.
Категория: школьный раздел
Ответы:
ответ к заданию
Вопрос: Для следующих математических выражений запишите соответствующие арифметические выражения на Паскале: 
а) (1 + х)2; 
б) корень (1+x2); 
в) cos2x2; 
г) log2x/5; 
д) arcsin х; 
е) (ex+xe)/2; 
ж) x корень 2; 
з) корень 3 степени (1+x); 
и) корень (x8+8x); 
к) (xyz-3,3|x+ корень 4 степени y|/(10^7 + ln4!); 
л) (b+sin2пи4)/ (cos2 + |ctgy|)
Категория: школьный раздел
Ответы:
ответ к заданию
Вопрос: Вычислите значения выражений: 
а)trunc(6.9) 
б)trunc (6.2) 
в) 20 div б 
г) 2 div 5 
д) round (6. 9) 
е)round(6.2) 
ж) 20 mod б 
з) 2 mod 5 
и) 3*7 div 2 mod 7/3 — trunc (sin (1) )
Категория: школьный раздел
Ответы:
а)trunc(6.9) = 6
б)trunc (6.2) = 6
в) 20 div б = 3
г) 2 div 5 = 0
д) round (6. 9) = 7
е)round(6.2) = 6
ж) 20 mod б = 2
з) 2 mod 5 = 2
и) 3*7 div 2 mod 7/3 — trunc (sin (1) ) = 1.0
Вопрос: Социальный работник, замещающий коллегу, должен действовать в интересах репутации того, кого замещает:
(*ответ*) да
 нет
Центральным принципом Этического кодекса Ассоциации социальных работников Великобритании является ценность и достоинство каждого человека:
(*ответ*) да
 нет
Этические кодексы социальной работы определяют этические пределы, в которых специалисты организуют свою деятельность:
(*ответ*) да
 нет
Этический кодекс определяет, за что отвечает и как должен поступать социальный работник:
(*ответ*) да
 нет
_ перед обществом и государством требуют от социального работника в первую очередь использования всех его профессиональных знаний и навыков, таланта и душевных качеств в интересах общества и государства
(*ответ*) Долг и ответственность
 Забота и ответственность
 Забота и долг
 Порядочность и долг
 Порядочность и ответственность
_ - чувство меры, которое следует соблюдать во взаимоотношениях с людьми, умение чувствовать границу «обидчивости» человека
(*ответ*) Тактичность
 Вежливость
 Скромность
 Чуткость
 Внимательность
 Точность
_ - это те требования, которые общество, профессия, коллектив, клиенты и он сам предъявляют к поведению и действиям, и то, в чем он сам испытывает потребность и за что несет ответственность
(*ответ*) Профессиональный долг специалиста
 Общественный долг специалиста
 Гражданский долг специалиста
 Этикет специалиста
 Этический кодекс специалиста
_ в отношениях не является формой лицемерия, антиподом правдивости и искренности, а, напротив, служит признаком уважения человеческого достоинства, доброты к человеку
(*ответ*) Вежливость
 Тактичность
 Скромность
 Чуткость
 Внимательность
 Точность
_ в социальной работе в Англии является признание ценности и достоинства каждого человека, независимо от происхождения, положения, пола, сексуальной ориентации, возраста, веры и вклада в общественное развитие. Профессия связана с поощрением и облегчением процесса самореализации индивида в соответствии с интересами других членов общества.
(*ответ*) Центральным
_ в социальной работе должен быть не только теоретической основой, но и практическим содержанием деятельности
(*ответ*) Гуманизм
 Альтруизм
 Профессионализм
 Этикет
_ выступает перед специалистом в виде обязанностей, соблюдение которых становится его внутренней нравственной потребностью
(*ответ*) Долг
 Этикет
 Ответственность
 Деонтология
 Этический кодекс
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)
Вопрос: Определите типы выражений: 
а)1+0.0 
б) 20/4 
в)sqr(4) 
г)sqrt(16) 
д)sin(O) 
е) trunc (-3.14)
Категория: школьный раздел
Ответы:
а) 1+0.0  вещественный
б) 20/4  вещественный или целый
в) sqr(4) вещественный или целый
г) sqrt(16) вещественный
д) sin(0)  вещественный
е) trunc(-3.14) целый
Вопрос: Назовите последовательность действий при выполнении оператора присваивания.
Категория: школьный раздел
Ответы:
Сначала вычисляется выражение, затем полученное значение присваивается переменной.
Вопрос: Сформулируйте правило соответствия типов для оператора присваивания. Какое существует исключение из этого правила?
Категория: школьный раздел
Ответы:
Типы переменной и выражения должны совпадать. Исключение: переменной вещественного типа можно присваивать значение целочисленного выражения.
Вопрос: Если у - вещественная переменная, a n - целая, то какие из следующих операторов присваивания правильные, а какие нет?
а)у:=п+1                             д)у:=п div 2
б)п:=у-1                             е)у:=у div 2
в)п:=4.0                             ж)п:=п/2
r)y:=trunc(y)                     3)n:=sqr(sqrt(n))
Категория: школьный раздел
Ответы:
А) правильное Б) неправильное В) неправильное Г) правильное
Д) правильное Е) неправильное Ж) неправильное 3) неправильное
Вопрос: Напишите линейную программу, в результате выполнения которой целочисленные переменные х и у обменяются значениями. При этом нельзя использовать дополнительные переменные. Найдя такой алгоритм, определите, в чем его недостаток по сравнению с методом обмена через третью переменную. Можно ли его применять для вещественных чисел?
Категория: школьный раздел
Ответы:
var
х, у: real; begin
writeln ('Bвeдитe х, Введите у');
reateln(x, у);
writeln('Ваш х=', ' Ваш у=', у); 
х: = х+у;
у: = х-у;
х: х-у;
writeln ('Измененный х=', х,', Измененный у=', у);
end.

Недостаток такой программы в том, что может произойти переполнение целочисленного типа. Такой алгоритм можно применять для вещественных чисел, но может возникнуть небольшая потеря точности.
Вопрос: Напишите оператор присваивания, в результате выполнения которого целочисленной переменно h присвоится значение цифры, стоящей в разряде сотен в записи положительного целого числа к (например, если к = 28796, то h = 7).
Категория: школьный раздел
Ответы:
ответ к заданию
Вопрос: Напишите линейную программу, в результате выполнения которой в целочисленной переменной S получится перевернутое целое четырехзначное число к. Например: если к= 1357, то S = 7531.
Категория: школьный раздел
Ответы:
ответ к заданию
Вопрос: Напишите линейную программу перевода любого целого четырехзначного двоичного числа в десятичную систему счисления. Например, дано число в двоичной системе счисления: 11012. Перевод в десятичную систему выполняется так: 1*2^3 +1-2^2 + 0*2^1+1 = 13.
Категория: школьный раздел
Ответы:
ответ к заданию
Вопрос: Какого типа величина получается при вычислении отношения (неравенства) менаду числами?
Категория: школьный раздел
Ответы:
типа - числового
Вопрос: Что такое предикат? Приведите примеры
Категория: школьный раздел
Ответы:
Предикат - логические функции от числовых аргументов. F(x, у) = (х^2 + у^2<1).
Вопрос: _ говорят о том, что исследователь не имеет права накапливать информацию об индивиде в тайне от него, а также произвольно передавать эту информацию третьим лицам
(*ответ*) Этические нормы
 Социально-психологические нормы
 Социальные нормы
 Педагогические нормы
 Исследовательские нормы
_ для социального работника является не только признаком хорошего воспитания, но и одним из условий успешной работы
(*ответ*) Внимательность
 Точность
 Вежливость
 Тактичность
 Скромность
 Чуткость
_ и самостоятельность социального работника состоит не в отказе от нормативных устоев данного сообщества, закрепленных в этическом кодексе, а в принятии решений и действиях на их основе
(*ответ*) Свобода
 Принципиальность
 Суверенность
 Индивидуальность
 Направленность личности
_ использование ресурсов в социальной работе, их творческое, рациональное расходование, изыскание новых, нетрадиционных и более эффективных видов ресурсов – одна из главных задач социального работника и его профессиональный долг
(*ответ*) Эффективное
 Максимальное
 Оптимальное
 Рачительное
 Всестороннее
_ нормы профессиональной морали социального работника раскрывают специфику профессиональной деятельности, конкретизируя ту или иную общую норму
(*ответ*) Частные
 Специальные
 Локальные
 Особые
_ обеспечить защиту участников исследований от дискомфорта, страданий, вреда, опасности или ущерба
(*ответ*) Социальный работник должен
 Руководство учреждения по социальной работе должно
 Местные органы власти должны
 Правоохранительные органы должны
_ обоснованной является проверка данных, сообщенных клиентом, однако клиент должен быть заранее оповещен о возможности и необходимости проверки предоставляемой им информации
(*ответ*) Этически и научно
 Этические и практически
 Научно и практически
 Теоретически и эмпирически
_ подход к определению направлений деятельности социальной рассматривает систему социальной защиты как автономную и самостоятельную
(*ответ*) Третий
 Первый
 Второй
 Четвертый
_ подход к определению направлений деятельности социальной служб основывается на том, что социальная работа рассматривается как социальный институт, неотъемлемая часть структуры государства
(*ответ*) Первый
 Второй
 Третий
 Четвертый
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)
Вопрос: Запишите на языке алгебры логики логические функции, которые будут принимать значение ИСТИНА, если справедливы следующие утверждения, и ЛОЖЬ — в противном случае:
A) все числа X, Y, Z равны между собой;
Б) из чисел X, Y, Z только два равны между собой;
B) каждое их чисел X, Y, Z положительно;
Г) только одно из чисел X, Y, Z положительно;
Д) значения чисел X, Y, Z упорядочены по возрастанию.
Категория: школьный раздел
Ответы:
A)(X = Y)&(Y = Z)
Б) ((X = Y) & (Y != Z)) V ((X = Z) & (Z != X)) V ((Y = Z) & (Z != X))
В) (X > 0) & (Y > 0) & (Z > 0)
Г) ((X > 0) & (Y > 0) & (Z < 0)) v ((X > 0) & (Y < 0) & (Z > 0)) v ((X < 0) &
(Y > 0) & (Z > 0))
Д) (X < Y) & (Y < Z)
Вопрос: Все формулы, полученные при решении предыдущей задачи, запишите в виде логических выражений на Паскале.
Категория: школьный раздел
Ответы:
А) (X = Y) and (Y = Z)
Б) ((X = Y) and (Y <> Z)) or ((X = Z) and (Z <> X)) or ((Y = Z) and (Z <> X))
B) (X > 0) and (Y > 0) and (Z > 0)
Г) ((X > 0) and (Y > 0) and (Z < 0)) or ((X > 0) and (Y < 0) and (Z > 0)) or ((X < 0) and (Y > 0) and (Z > 0))
Д) (X < Y) and (Y < Z)
Вопрос: Постройте таблицу истинности для логической формулы:
-X&Y v X&Z.
Пояснение: в таблице истинности должны быть вычислены значения формулы для всех вариантов значений логических переменных: X, У, Z. Следовательно, таблица будет содержать 23 = 8 строк и 4 столбца: значения X, У, Z и результат. В таблицу можно добавить дополнительные столбцы, содержащие результаты промежуточных операций.
Категория: школьный раздел
Ответы:
ответ к заданию
Вопрос: Укажите части речи однокоренных слов
Река выступила(         ) из берегов и затопила луг
Река, выступившая(         ) из берегов, затопила луг
Река, выступив(         ) из берегов, затопила луг
Птицы догоняли (        ) друг друга и кружились в воздухе
Птицы, догоняющие (        ) друг друга, и кружились в воздухе
Птицы, догоняя (        ) друг друга, и кружились в воздухе
Категория: школьный раздел
Ответы:
Вопрос: Вычислите значения следующих логических выражений, записанных на Паскале: 
а) К mod 7 = К div 5-1    при К = 15; 
б) odd(trune(10*P))    при P = 0,182; 
в) not odd(n)    при n = 0; 
г) t and (P mod 3=0)    при t = true, P = 10101; 
д) (x*y<>0) and (y>x)    при x = 2, у = 1; 
е) a or not b    при a = false, b = true. 
Пояснения: odd(x) — логическая функция определения четности аргумента, равна true, если х — нечетное, и равна false, если х — четное; trunc(x) — целочисленная функция от вещественного аргумента, возвращающая ближайшее целое число, не превышающее х по модулю
Категория: школьный раздел
Ответы:
а) false 
б)  true 
в)  true 
г)  true 
д)  false 
е)  false
Вопрос: Какие операторы используются для программирования ветвящихся алгоритмов?
Категория: школьный раздел
Ответы:
Условный оператор if... then ... else, оператор выбора case ... of... else.
Вопрос: В каких случаях удобно использование оператора выбора?
Категория: школьный раздел
Ответы:
Оператор выбора необходим в случае, когда использование множества конструкций условий (if, elseif и else) в значительной мере загромождают код. С помощью оператора выбора Case возможно делать выбор из необходимого количества вариантов. Оператор выбора позволяет заменить несколько операторов ветвления
Вопрос: Составьте на Паскале программу упорядочения по возрастанию значений в трех переменных: X, Y, Z.
Категория: школьный раздел
Ответы:
ответ к заданию
Вопрос: Используя оператор выбора, составьте программу, которая по введенному номеру месяца будет выводить название соответствующего времени года (зима, весна, лето, осень).
Категория: школьный раздел
Ответы:
ответ к заданию
Вопрос: Сформулируйте основные цели этапов алгоритмического решения задачи.
Категория: школьный раздел
Ответы:
1) Постановка задачи
2) Формализация
3) Анализ математической задачи
4) Построение алгоритма
5) Составление программы
6) Тестирование
Вопрос: _ подход к определению направлений деятельности социальной служб рассматривает органы и учреждения социальной защиты и отдельных социальных работников как активных участников в формировании социальной политики
(*ответ*) Второй
 Первый
 Третий
 Четвертый
_ показывает, какие требования предъявляет общество к социальному работнику как к специалисту, гражданину и человеку
(*ответ*) Деонтология
 Социальная этика
 Профессиональная этика
 Этика гражданского общества
 Этикет
 Этический кодекс
_ предполагает способность понимать и считаться с переживаниями другого человека, улавливать оттенки его настроения, способность как можно меньше доставлять человеку неприятностей и неудобств
(*ответ*) Чуткость
 Тактичность
 Вежливость
 Скромность
 Внимательность
 Точность
_ предполагает умение сопоставить самооценку с мнением о себе окружающих и ни в коем случае не переоценивать свою значимость, умеренность в требованиях к другим и повышенную требовательность к себе, сдержанность
(*ответ*) Скромность
 Тактичность
 Вежливость
 Чуткость
 Внимательность
 Точность
_ представляет собой учение о долге и обязанностях представителя профессии перед обществом и государством, своей профессией, перед коллегами и людьми, на которых направлена деятельность
(*ответ*) Профессиональная деонтология
 Профессиональная этика
 Социальная этика
 Нормативная этика
 Метаэтика
 Политическая этика
_ профессии – это престиж ее представителей, оценка обществом деятельности специалистов их морального облика и социальной значимости
(*ответ*) Престиж
 Авторитет
 Имидж
 Статус
 Социальная роль
_ социального работника перед своей профессией требует реализации ее гуманистического потенциала в обществе, утверждения как необходимого института, имеющего высокую значимость в глазах общества
(*ответ*) Долг
 Ответственность
 Чувство восхищения
 Чувство гордости
_ социальной защиты является для социального работника его ближайшим окружением, средой, в которой развиваются его творческие профессиональные возможности и личностные качества
(*ответ*) Коллектив учреждения
 Учреждение
 Служба
 Поле деятельности
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)
Вопрос: Проанализируйте задачу решения биквадратного уравнения, составьте и напишите программу на Паскале.
Категория: школьный раздел
Ответы:
Программа для нахождения корней биквадратного уравнения, представляет собой алгоритмическую структуру ветвление.

program bikv;
uses crt;
var a,b,c,d,x1,x2,x3,x4,t1,t2: real;
begin
writeln('Программа для решения биквадратного уравнения вида ax^4+bx^2+c');
write('введите a= ');
read(a);
write('введите b= ');
read(b);
write('введите c= ');
read(c);
d:=b*b-4*a*c;
if d<0 then writeln('Уравнение не имеет действительных корней')
else
begin
t1:=(-b+sqrt(d))/(2*a);
t2:=(-b-sqrt(d))/(2*a);
end;
if (t1<0) then writeln('x1 и x2 не действительные корни')
else
begin
if t1>0 then x1:=sqrt(t1);
x2:=-x1;
write('x1=',x1,';','x2=',x2,';');
end;
if (t2<0) then writeln('x3 и x4 не действительные корни')
else
begin
if t2>0 then x3:=sqrt(t2);
x4:=-x3;
write('x3=',x3,';','x4=',x4,'.');
end;
end.
Вопрос: Постройте трассировочную таблицу выполнения программы Summa_1 для значения n = 3.
Категория: школьный раздел
Ответы:
ответ к заданию
Вопрос: Составьте программу, по которой компьютер десять раз запросит ввод любых чисел и в результате выведет среднее арифметическое значение введенных чисел (массив не использовать). Сделайте три варианта программы, используя операторы цикла While, Repeat и For.
Категория: школьный раздел
Ответы:
ответ к заданию
Вопрос: Составьте программу, по которой компьютер десять раз запросит ввод целых чисел и в результате сообщит, сколько среди введенных чисел четных и сколько нечетных.
Категория: школьный раздел
Ответы:
Var a, b, c, d:integer;
begin
for a:=1 to 10 do begin
write ('введите число=> ');
readln (d);
if (d mod 2=0) then c:=c+1 else d:=d+1;
end;
writeln ('чётных=> ', c,' нечётных=> ', d);
end.
Вопрос: Составьте программу, по которой на экран будет выведена вся таблица умножения
Категория: школьный раздел
Ответы:
ответ к заданию
Вопрос: Усовершенствуйте программу TablMul (пример 2 данного параграфа) таким образом, чтобы в результате выводилось сообщение о количестве правильных и неправильных ответов
Категория: школьный раздел
Ответы:
ответ к зданию
Вопрос: Усовершенствуйте программу TablMul таким образом, чтобы в результате выводилась оценка, поставленная ученику. Критерии для выставления оценок придумайте сами
Категория: школьный раздел
Ответы:
Program TablMul;

Const Size = 7; 
Var 
Ball: array[1..Size] of real; 
Ocenka: array[1..Size] of integer; 
Counter: integer; 
Begin 
Counter := 1; 
while (Counter <= Size) do 
begin 
Write(\'Введите балл \', counter, \' ученика: \'); 
Readln(Ball[Counter]); 
Counter := Counter + 1; 
end; 
Counter := 1; 
Repeat 
if (Ball[Counter] > 90) then 
Ocenka[Counter] := 5 
else if (Ball[Counter] >= 75) and (Ball[Counter] < 90) then 
Ocenka[Counter] := 4 
else if (Ball[Counter] >= 50) and (Ball[Counter] < 75) then 
Ocenka[Counter] := 3 
else 
Ocenka[Counter] := 2; 
Counter := Counter + 1; 
Until (Counter > Size); 
Writeln(); 
for var i := 1 to Size do 
Writeln(\'Оценка \', i, \' ученика: \', Ocenka[i]); 
End.
Вопрос: Получите таблицу значений функции sinx и cosx на отрезке [0, 1] с шагом 0,1 в следующем виде: 
X sinr cos г 
0.0000 0.0000 1.0000 
0.1000 0.0998 0.9950 
... ... ... 
1.0000 0.8415 0.5403
Категория: школьный раздел
Ответы:
ответ к заданию
Вопрос: Получите в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр
Категория: школьный раздел
Ответы:
ответ к заданию
Вопрос: Значение функции ех (экспонента от х) равно сходящейся сумме бесконечного ряда: 
ex=1+x/1! + x2/2! + x3/3! + ... + xn/n! + ... 
Получите рекуррентную формулу для слагаемых. Используя операторы цикла While, Repeat и For, составьте три варианта программы вычисления суммы с заданным числом слагаемых
Категория: школьный раздел
Ответы:
var
  i, n: integer;
  a, x, Summa: real;
begin
  write(' x = ');
  readln(x);
  write(' n = ');
  readln(n);
  a := 1;
  Summa := 1;
  for i := 1 to n do
  begin
    a := a * x / i;
    Summa := Summa + a
  end;
  writeln;
  writeln(' Summa =  ', Summa:0:7)
end.
Вопрос: _ специалиста играет важнейшую роль в повседневной практической деятельности, оказывают воздействие на социальное самочувствие и психологический статус клиента, влияет на моральный уровень всего общества
(*ответ*) Личность
 Облик
 Линия поведения
 Стиль жизни
_ специалиста характеризует его личность с точки зрения нравственных требований, предъявляемых к ней в части профессионально-квалификационных и личностных качеств, и деятельности
(*ответ*) Ответственность
 Долг
 Совесть
 Этикет
 Профессиональный долг
_ специалиста – осознанная необходимость определенного поведения, диктуемая потребностями достижения блага в системе “человек–среда” – для социального работника является продолжением профессионального долга
(*ответ*) Моральный долг
 Этика
 Деонтология
 Моральная ответственность
 Этикет
_ является наиболее деликатной формой общения с клиентом
(*ответ*) Консультирование
 Беседа
 Прием
 Встреча
_ является одной из основ профессиональной деятельности социальных и медицинских работников, учителей, психологов и представителей других профессий, объектом деятельности которых является человек, а профессиональные действия непосредственно связаны и направлены на достижение физического, психического, социального здоровья и благополучия человека, его социального окружения и общества.
(*ответ*) Деонтология
Автоматического запоминания основных этических норм для специалиста мало; моральность и нравственность должны стать основой _ специалиста
(*ответ*) личности
 развития
 интеллекта
 подготовки
 профессионализма
Анализ требований, предъявляемых к специалисту в профессиональном кодексе, показывает, что они могут быть условно сведены к двум группам нормативов:
(*ответ*) первая группа – это требования к качеству, содержанию и результатам профессиональной деятельности
(*ответ*) вторая группа – это требования к личности профессионала
 первая группа – это требования к личности профессионала
 вторая группа – это требования к качеству, содержанию и результатам профессиональной деятельности
Борьба социального работника за повышение престижа и статуса профессии в обществе является его профессиональным долгом; в этой связи социальный работник обязан поддерживать:
(*ответ*) моральную чистоту профессии
(*ответ*) заботиться о собственном моральном облике
(*ответ*) не допускать проявлений узковедомственных интересов в ущерб интересам дела
(*ответ*) не допускать подмены ценностей профессии ценностями группы специалистов
(*ответ*) не допускать отступлений от принципов и норм этики социальной работы
 не допускать жесткой борьбы за повышение престижа и статуса профессии
 вести борьбу за максимальное приближение действительного состояния профессиональной деятельности к ожидаемому
Будущий специалист на конкретных примерах, с помощью аналогий должен выработать в себе привычку постоянной нравственной оценки явлений и действий с помощью полученных в процессе обучения и воспитания знаний и усвоенных
(*ответ*) взглядов
 навыков
 умений
 качеств
 установок
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)
Вопрос: Найдите все значения натуральных чисел X, Y, Z из интервала от 1 до 10, удовлетворяющих равенству: X2 + У2 = Z2
Категория: школьный раздел
Ответы:
ответ к заданию
Вопрос: Вычислите количество точек с целочисленными координатами, попадающих в круг радиуса R (R > 0) с центром в начале координат
Категория: школьный раздел
Ответы:
ответ к заданию
Вопрос: Старинная задача. Сколько можно купить быков, коров и телят на 100 руб., если в сумме должно быть куплено 100 голов скота, а цена быка — 10 руб., цена коровы — 5 руб., цена теленка — 0,5 руб.?
Категория: школьный раздел
Ответы:
program prim3
  uses crt;
  var b, k, t: integer;
begin
  clrscr;
  for b:=0 to 10 do
    for k:=0 to 20 do
      for t:=0 to 200 do
        if(20*b+10*k+t=200) and (b+k+t=100)
        then
        writeln('Быков ', b, 'коров ', k ' телят ', t);
  readln;
end.

Program Praktik5;
Uses crt;
Var a, b, c: integer;
Begin 
    for a:= 1 to 10 do
      for b:=1 to 100 do
        for c:=1 to 100 do
          if (a+b+c = 100) and 
            (10*a + 5*b + 0.5*c) =100 then
              writeln (a,’ быков ’, b,’ коров ’,c,’телят’);
Readkey;
end.
Вопрос: Чем отличается итерационный цикл от цикла с заданным числом повторений?
Категория: школьный раздел
Ответы:
Итерационные циклы отличаются от циклов с параметром тем, что в них заранее неизвестно число повторений.
Вопрос: Почему для программирования итерационных циклов не используется оператор цикла с параметром?
Категория: школьный раздел
Ответы:
В итерационных циклах на каждом шаге вычислений происходят последовательное приближение и проверка условия достижения искомого результата. Решить эту задачу, используя цикл с параметром, нельзя.
Вопрос: Запрограммируйте итерационный цикл вычисления функции ех (см. задание 9 из § 21) с точностью е. Сделайте два варианта программы: с циклами While и Repeat. Выполните вычисления для е = 10^-6, х = 2 и сопоставьте полученный результат со значением стандартной функции ехр (х).
Категория: школьный раздел
Ответы:
1.    const 
2.    e=0.000001;//точность 
3.    x=2;
4.    var 
5.    a,y:real;
6.    i:integer;
7.    begin 
8.    writeln('exp(x):=':10,exp(x));//стандартное значение 
9.    y:=1;//значение функции первый элемент 
10.    a:=1;//значение приращения 
11.    i:=1;//итерационный шаг 
12.    while a>e do//пока приращение больше точности
13.    begin 
14.    a:=a*x/i;//считаем и степень и факториал
15.    y:=y+a;//суммируем 
16.    inc(i);//следующий шаг 
17.    end;
18.    writeln('while :=':10,y);
19.    y:=1;//значение функции первый элемент 
20.    a:=1;//значение приращения 
21.    i:=1;//итерационный шаг 
22.    repeat 
23.    a:=a*x/i;//считаем и степень и факториал
24.    y:=y+a;//суммируем 
25.    inc(i);//следующий шаг 
26.    until a<e;//пока приращение больше точности 
27.    writeln('repeat :=':10,y);
28.    end.
Вопрос: Составьте программу определения количества четных и нечетных цифр в записи данного натурального числа
Категория: школьный раздел
Ответы:
ответ к заданию

Program Praktik6;
Uses crt;
var x,y: Longint; chet,nechet:word;
begin
   Write ('Введите целое число ');
   Readln (x);
   Chet:=0;
   Nechet:=0;
   While (x>0) do
     begin
     Y:= x mod 10;
     if Y mod 2=0 then chet:=chet+1 else nechet:=nechet+1;
     x:=x div 10
     end;
   Writeln ('число четных чисел равно ',chet);
   writeln ('число нечетных чисел равно ',nechet);
   Readkey
End.
Вопрос: Составьте программу определения наибольшей цифры в записи данного натурального числа.
Категория: школьный раздел
Ответы:
Var  n: Integer;  min,max: Byte;BEGINWriteln('Введите число: ');Readln(n);max:=0;min:=9;While n>0 dobegin  If n mod 10>max Then max:=n mod 10;  If n mod 10<min THen min:=n mod 10;  n:=n div 10;end;Writeln('MAX=',max);Writeln('MIN=',min);END.
Вопрос: Для чего используются подпрограммы?
Категория: школьный раздел
Ответы:
Подпрограмма представляет собой составной оператор, объединяющий ряд простых операторов. При этом этот «составной оператор» оснащается именем и внешне оформляется как программа. В подпрограмме бывают свои константы, переменные и другие атрибуты полноценной программы
Вопрос: В чем различие между процедурами и функциями?
Категория: школьный раздел
Ответы:
В процедуре результат — любое число величин, в функции - одна величина. Обращение в процедуре - оператор процедуры, в функции -операнд выражения. Параметры в процедуре — переменные, в функции -значения. Описание у процедур и функций разное.
Вопрос: В _ мере критичное отношение должно сохраняться к руководителю; руководитель, склонный считать, что открытая критика подрывает его авторитет, не сможет добиться высоких результатов работы
(*ответ*) полной
 некоторой
 значительной
 большой
В _ реализуется одна из важнейших задач института социальной работы в обществе и профессиональная роль социального работника, представляющего этот институт
(*ответ*) этическом воздействии
 высоконравственном поведении
 нравственном поведении
 соблюдении норм профессиональной этики
В деятельности современного специалиста – этикет играет все более важную роль, способствуя развитию _ отношений с партнерами
(*ответ*) конструктивных, доброжелательных
 конструктивных, деловых
 деловых, доброжелательных
 конструктивных, взаимовыгодных
 деловых, взаимовыгодных
 взаимовыгодных, доброжелательных
В интересах социального работника
(*ответ*) доказать окружению клиента объективную необходимость и полезность его участия в решении проблем клиента
(*ответ*) преодолеть возникшее противоречие во взглядах и мнениях людей, близких клиенту
(*ответ*) преодолеть возникшее отчуждение друг от друга людей окружения клиента
(*ответ*) пробудить у окружения клиента интерес к совместным действиям
(*ответ*) тактично разъяснить роли в отношении клиента людям из его окружения
(*ответ*) согласовать интересы людей окружения клиента с целью организации плодотворного сотрудничества на благо клиента
(*ответ*) добиться добровольного участия в совместной деятельности людей окружения клиента
 нейтрализовать попытки к участию в делах клиента у людей его окружения
В категории _ наиболее ярко проявляется социальный характер деятельности социального работника и нормативный характер профессиональной этики
(*ответ*) “долг”
 “деонтология”
 “совесть”
 “ответственность”
В Новое время базовым в этикете становится
(*ответ*) чувство собственного достоинства
(*ответ*) чувство самоценности личности
 вежливость
 любезность
 корректность
В Новое время этикет рассматривается как своего рода _, с помощью которого происходит сдерживание чрезмерного проявления эмоций, что делает человека более приятным и предсказуемым в обществе
(*ответ*) инструментарий
 кодекс
 закон
 способ
В основе этических нормативов социальной работы в нашей стране лежит шесть основных источников, а именно
(*ответ*) общечеловеческие ценности
(*ответ*) этические традиции благотворительности
(*ответ*) ценности современного российского общества
(*ответ*) этические нормативы зарубежных стран
(*ответ*) специфические ценности современной российской социальной работы
(*ответ*) личностные ценности и идеалы специалистов
 общечеловеческие традиции благотворительности
 ценности традиционного российского общества
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)
Вопрос: Какие существуют способы передачи данных между подпрограммой и вызывающей ее программой?
Категория: школьный раздел
Ответы:
Использование    глобальных    переменных,    передавать    данные    из программы в подпрограмму можно в виде параметров.
Вопрос: Составьте программу вычисления площади кольца по значениям внутреннего    и    внешнего    радиусов,    используя    подпрограмму вычисления   площади   круга  (два   варианта:   с   процедурой   и   с функцией).
Категория: школьный раздел
Ответы:
Program vozvedenie;
uses crt;
var r1,r2:real;
function Scirkle(r:real):real;
begin
 Scirkle:=pi*sqr(r);
end;
begin
 clrscr;
 writeln('r1,r2');
 readln(r1,r2);
 writeln('Площадь кольца равна**',Scirkle(r1)-Scirkle(r2));
 readln;
end.
Вопрос: Составьте программу сложения двух простых дробей. Результат должен быть несократимой дробью. Используйте подпрограмму вычисления НОД по алгоритму Евклида. Простая дробь задается двумя целыми числами: числителем и знаменателем
Категория: школьный раздел
Ответы:
ответ к заданию
Вопрос: По координатам вершин треугольника вычислите его периметр, используя подпрограмму вычисления длины отрезка между двумя точками
Категория: школьный раздел
Ответы:
ответ к заданию
Вопрос: Даны три целых числа. Определите, у которого из них больше сумма цифр. Подсчет суммы цифр организуйте через подпрограмму
Категория: школьный раздел
Ответы:
function summa(n:integer):integer;
var m,s:integer;
begin
s:=0;
m:=abs(n);
while m>0 do
 begin
  s:=s+m mod 10;
  m:=m div 10
 end;
summa:=s
end;
var a,b,c,mx:integer;
begin
writeln('Введите 3 целых числа');
readln(a,b,c);
if summa(a)>summa(b) then mx:=a else mx:=b;
if summa(c)>summa(mx) then mx:=c;
write('Наибольшая сумма цифр в числе ',mx);
end.
Вопрос: Что такое регулярный тип данных? Что такое массив?
Категория: школьный раздел
Ответы:
Регулярный тип — это структурный тип данных, представляющих собой совокупность   пронумерованных   однотипных   величин.   Массив   -переменная величина регулярного типа.
Вопрос: Какие типы допустимы для индексов массива?
Категория: школьный раздел
Ответы:
Порядковые типы
Вопрос: Как в Паскале трактуется многомерный массив?
Категория: школьный раздел
Ответы:
Для многомерных массивов индекс - множество значений.
Вопрос: Какие  действия   можно   выполнять   над   массивом   как  единым целым?
Категория: школьный раздел
Ответы:
Массив может участвовать только в операциях отношения "равно", "не равно" и в операторе присваивания.
Вопрос: Дан вектор {z1}, i = 1, ..., 50. Составьте программу ввода значений и вычисления длины этого вектора по следующей формулe: 
L= корень (z1^2 + z2^2 + ... z50^2).
Категория: школьный раздел
Ответы:
ответ к заданию
Вопрос: В отличие от представителей многих профессий, работающих с людьми, социальный работник имеет дело не с одной стороной жизнедеятельности или личности клиента, а с целостностью, совокупностью его
(*ответ*) личностных свойств и жизненных обстоятельств
 личностных особенностей
 личностных черт и жизненных обстоятельств
 ценностных ориентаций и жизненных обстоятельств
В отношениях с коллегами основными моральными нормами социальных работников являются:
(*ответ*) открытость
(*ответ*) честность
(*ответ*) доброжелательность
(*ответ*) взаимная поддержка и выручка
(*ответ*) высокая требовательность к коллегам
(*ответ*) более высокая требовательность к себе самому
 приоритетность интересов группы, коллектива
 поддержка коллег, всяческое подчеркивание значимости и важности их работы
В плане конфиденциальности и сохранения тайны социальный работник должен:
(*ответ*) полностью информировать клиентов о пределах конфиденциальности в данной ситуации, о целях использования информации
(*ответ*) в случае необходимости обеспечить клиентов любыми официальными записями, касающимися их
(*ответ*) обеспечивая клиентов необходимыми записями, соблюдать конфиденциальность остальной хранящейся в записях информации
 получить согласие клиентов, прежде чем печатать, делать магнитофонные записи или разрешить какой-либо инстанции наблюдать за его работой
 частично информировать клиентов о пределах конфиденциальности в данной ситуации, о целях использования информации
 в случае необходимости обеспечить клиентов любыми официальными записями
В понятие профессионального долга всегда входят не только функциональные обязанности представителей той или иной профессии, но и ответственность этих людей перед
(*ответ*) коллегами
(*ответ*) профессией как таковой
(*ответ*) обществом
 органами власти
 законом
В рамках кодекса профессиональная мораль существует как упорядоченная совокупность согласованных требований, предписаний к поведению и деятельности специалиста, т.е. как определенная система, и является содержанием его профессионального
(*ответ*) долга
 призвания
 идеала
 статуса
 престижа
 имиджа
В России роль руководства по правилам хорошего тона с середины _ в. играл “Домострой”, авторство которого приписывается монаху Сильвестру
(*ответ*) XVI
 XV
 XVII
 XVIII
В условиях современной России процессы реформирования экономики и всего общественного устройства могут быть _ лишь при соответствующем моральном уровне общества
(*ответ*) оптимизированы
 максимизированы
 углублены
 ускорены
В целом, участие в разработке социальной политики требует от социального работника не только профессиональной подготовки в области социальной работы, но и глубокого знания
(*ответ*) политики
(*ответ*) экономики
(*ответ*) социологии
(*ответ*) психологии
(*ответ*) этических основ политики, экономики, социологии, психологии как видов деятельности
 правовых основ политики, экономики, социологии, психологии как видов деятельности
 этики научной работы
Категория: гуманитарные
Ответы:
тест  прошел проверку
правильные ответы отмечены по тесту
пользуемся)
Вопрос: Даны значения массива {аi}, i = 0, ... , 10 и переменной х. Составьте программу вычисления алгебраического многочлена 10-й степени по формуле Горнера: 
а10х10 + а9х9+... +a1x + a0 = ((...(a10x + а9)х + а8)х + ... + а1)х + а0.
Категория: школьный раздел
Ответы:
Var a:array [0..10] of integer; 
i,x:integer; s:real; 
begin 
writeln(Введите значение x); 
readln(x); 
writeln(Введите элементы массива); 
for i:=0 to 10 do begin 
read(a[i]); 
s:=s+a[i]*power(x,i); 
end; 
writeln(s); 
end.
Вопрос: Сформулируйте правила организации ввода данных из текстового файла.
Категория: школьный раздел
Ответы:
Объявить в программе файловую переменную с типом Text; связать файловую переменную с файлом внешней памяти, содержащим исходные данные, с помощью оператора Assign; открыть файл для чтения с помощью процедуры Reset; осуществить чтение из файла с помощью операторов Read или Readln; закрыть файл с помощью оператора Close
Вопрос: Сформулируйте правила организации вывода данных в текстовый файл
Категория: школьный раздел
Ответы:
Объявить в программе файловую переменную с типом Text; связать файловую переменную с файлом внешней памяти, содержащим исходные данные, с помощью оператора Assign; открыть файл для записи с помощью процедуры Rewrite; осуществить запись в файл с помощью операторов Write или Writeln; закрыть файл с помощью оператора Close.
Вопрос: Напишите программу, по которой из текстового файла с именем kvur.txt будут прочитаны три числа а, b, с — коэффициенты квадратного уравнения, затем будут вычислены корни этого уравнения и выведены на экран и в текстовый файл korni.txt
Категория: школьный раздел
Ответы:
Program Praktik8;
Uses crt;
Var a, b, c, d, x1, x2: real;
    G: text;
Begin
    Assign (G,'kvur.txt');
    Reset(G);
    Readln (G,a,b,c);
    Close(G);
    d:=sqr(b)-4*a*c;
        if d > 0 then
        begin
             x1:=(-b+sqrt(d))/(2*a);
             x2:=(-b-sqrt(d))/(2*a);
             Assign (G,'korni.txt ');
             Rewrite (G);
             Writeln (G,'2 корня ', x1:7:2, x2:7:2);
             Close(G);
             Writeln ('2 корня ', x1:7:2, x2:7:2)
        end
else if d = 0 then
             begin
               x1:=-b/(2*a);
               Assign (G,'korni.txt ');
               Rewrite (G);
               Writeln (G,'1 корень ', x1:7:2);
               Close(G);
               Writeln ('1 корень ', x1:7:2)
             end
               else
                 begin
                    Assign (G,'korni.txt ');
                    Rewrite (G);
                    Writeln (G,‘нет корней');
                    Close(G);
                    Write (‘нет корней')
                 end;
    Readkey
End.
Вопрос: Программа на Паскаль: Найти радиусы вписанной и описанной окружностей в правильный 
треугольник, если известна  сторона треугольника
Категория: школьный раздел
Ответы:
Program radius;
Uses crt;
Var a, ro, rv: real;
Begin
       writeln (‘введите сторону треугольника’);
       read (a);
       ro:= a*sqrt(a)/3;
       rv:= a*sqrt(a)/6;
       writeln( ‘ радиус описанной окружности равен ’, ro); 
       writeln( ‘ радиус вписанной окружности равен ’, rv); 
       readkey
end.
Вопрос: Программа на Паскаль Решить квадратное уравнение
Категория: школьный раздел
Ответы:
Program kvuravn;
Uses crt;
Var a, b, c, d, x1, x2: real;
Begin
        Writeln(‘Введите коэффициенты квадратного уравнения’);
        Read (a, b, c);
        d:=sqr(b) – 4*a*c;
        if d > 0 then begin
                                  x1:=(-b+sqrt(d))/(2*a); 
                                  x2:=(-b-sqrt(d))/(2*a); 
                                  writeln (‘2 корня’, x1, x2);
                             end
                     else if d = 0 then begin
                                                    x1:=-b/(2*a);
                                                    writeln (‘корень один’, x1);
                                                 end
                                         else write (‘ корней нет’);
readkey;
end.
Вопрос: Составить программу которая сообщает, сдал студент экзамен или не сдал
Категория: школьный раздел
Ответы:
Program stydent;
Uses crt;
Var n:integer;
Begin 
  Writeln (‘введите оценку’);
  Read (n);
  Case n of
  3, 4, 5: WriteLn (‘Экзамен сдан’);
        2: WriteLn (‘Экзамен не сдан’);
  Else WriteLn (‘Нет такой оценки’)
  End;
Readkey
End.
Вопрос: Создать программу: По номеру года определить  его название в старо японском календаре
Категория: школьный раздел
Ответы:
Program practik3;
Uses crt;
Var Year : Integer; 
Begin 
   WriteLn('Введите номер года '); 
   ReadLn(Year); 
   Case (Year mod 12) Of 
   0: WriteLn('Год Обезьяны'); 
   1: WriteLn('Год Петуха'); 
   2: WriteLn('Год Собаки'); 
   3: WriteLn('Год Свиньи'); 
   4: WriteLn('Год Крысы'); 
   5: WriteLn('Год Коровы'); 
   6: WriteLn('Год Тигра'); 
   7: WriteLn('Год Зайца'); 
   8: WriteLn('Год Дракона'); 
   9: WriteLn('Год Змеи'); 
   10: WriteLn('Год Лошади'); 
   11: WriteLn('Год Овцы') 
   End; 
   Readkey
End.
Вопрос: Составить программу проверки знаний  учеником таблицы умножения
Категория: школьный раздел
Ответы:
Program test;
Var x,y,i,z: integer;
Begin
      for i:=1 to 10 do 
    begin
           x:= random(8) +2;
           y:= random(8) +2;
           writeln (‘Сколько будет’,x,’*’,y,’?’);
           read (z);
           if z=x*y 
           then writeln (‘Правильно!’)
           else writeln (‘Неправильно! ‘, x,’*’ ,y ,’=‘,x*y);
   end;
end
Вопрос: Программа на Паскаль Составить таблицу умножения
Категория: школьный раздел
Ответы:
Program tablumn;
Uses crt;
Var x, y: 1..9;
Begin
     For x:=1 to 9 do
     Begin
         Writeln;
          For y:=1 to 9 do 
             Write (x*y:3)
     End;
Readkey;
End.