|
Паскаль
|
|
Решите любую, заранее буду рад.
Задача 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.
|
|
|
|
