Паскаль
|
|
Решите любую, заранее буду рад.
Задача 1. «Арифметика»
(Текст программы ≤ 256 Кбайт; время компиляции ≤ 1 мин) Мах оценка задачи:3 балла В прошлом году Вася пошел в школу. Он изучает таблицу умножения чисел от 1 до 100 в десятичной системе счисления, а поскольку запомнить такую таблицу очень сложно, то Васе придется очень долго ее зубрить. Составьте для Васи программу, которая поможет ему проверять свои знания. Входные данные
Ввести три натуральных числа A, B и C через пробел. Числа A и B <= 102, а C <= 106. Выходные данные
Вывести на экран YES в том случае, если A*B=C и вывести NO в противном случае. Тесты № ВВОД ВЫВОД
1 8 54 432 YES
2 16 19 777 NO
Задача 2. «Золото племени»
(Текст программы ≤ 256 Кбайт; время компиляции ≤ 1 мин) Мах оценка задачи:3 балла Главный вождь племени не умеет считать. В обмен на одну из его земель вождь другого племени предложил ему выбрать одну из трех куч с золотыми слитками. Но вождю первого племени хочется получить наибольшее количество золотых слитков. Помогите вождю сделать правильный выбор! Входные данные
В первой строке ввода записаны три натуральных числа через пробел. Каждое из чисел не превышает 32767. Выходные данные
На экран нужно вывести одно целое число — максимальное количество слитков, которые может взять вождь. Тесты № ВВОД ВЫВОД
1 5 7 3 7
2 30589 234 6364 30589
Задача 3. «Игра»
(Текст программы ≤ 256 Кбайт; время компиляции ≤ 1 мин) Мах оценка задачи:3 балла В свободное время одноклассники Вася и Петя любят играть в различные логические игры: морской бой, крестики-нолики, шахматы, шашки и многое другое. Ребята уже испробовали и поиграли во всевозможные классические игры подобного рода, включая компьютерные. Однажды им захотелось сыграть во что-нибудь новое, но ничего подходящего найти не удалось. Тогда Петя придумал следующую игру «Угадайка»: Играют двое участников. Первый загадывает любое трехзначное число, такое что первая и последняя цифры отличаются друг от друга более чем на единицу. Далее загадавший число игрок переворачивает загаданное число, меняя первую и последнюю цифры местами, таким образом получая еще одно число. Затем из максимального из полученных двух чисел вычитается минимальное. Задача второго игрока – угадать по первой цифре полученного в результате вычитания числа само это число. Например, если Вася загадал число 487, то перестановкой первой и последней цифры он получит число 784. После чего ему придется вычесть из 784 число 487, в результате чего получится число 297, которое и должен отгадать Петя по указанной первой цифре «2», взятой из этого числа. Петя успевает лучше Васи по математике, поэтому практически всегда выигрывает в играх такого типа. Но в данном случае Петя схитрил и специально придумал такую игру, в которой он не проиграет Васе в любом случае. Дело в том, что придуманная Петей игра имеет выигрышную стратегию, которая заключается в следующем: искомое число всегда является трехзначным и вторая его цифра всегда равна девяти, а для получения значения последней достаточно отнять от девяти первую, т.е. в рассмотренном выше случае последняя цифра равна 9-2=7. Помогите Пете еще упростить процесс отгадывания числа по заданной его первой цифре, написав соответствующую программу. Входные данные
В единственной строке ввода задана цифра К, соответствующая первой цифре полученного Васей в результате вычитания наименьшего загаданного Васей значения из наибольшего. Выходные данные
На экран нужно вывести значение полученной Васей разности в виде трехзначного числа. Тесты № ВВОД ВЫВОД
1 5 594
2 2 297
3 7 792
Задача 4. «Произведение»
(Текст программы ≤ 256 Кбайт; время компиляции ≤ 1 мин) Мах оценка задачи:3 балла Требуется посчитать произведение целых чисел от 1 до N. Входные данные
В строке ввода записать единственное натуральное число N, не превышающее по абсолютной величине 15. Выходные данные
В строке вывода - целое число, являющееся произведением чисел от 1 до N. Пример № ВВОД ВЫВОД
1 5 120
2 14 87178291200
|
|
|
1. var a,b,c:longint; begin read(a,b,c); if (a*b=c) then writeln('YES') else writeln('NO'); end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
2. var a,b,c:integer; begin read(a,b,c); if (a > b) and (a > c) then writeln(a) else if (b > a) and (b > c) then writeln(b) else writeln©; end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
4. var i,n:byte; fact:longint; begin read(n); fact:=1; if n <= 11 then begin for i:=1 to n do fact:=fact*i; writeln(fact); end else begin if (n = 12) then writeln('479001600'); if (n = 13) then writeln('6227020800'); if (n = 14) then writeln('87178291200'); if (n = 15) then writeln('1307674368000'); end; end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
обращайся
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
3 var a:byte; begin
read(a); write(a,'9',9-a); end.
|
|
|