Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Паскаль (Помогите Решить Задачу По Паскалю!!!!!!!!)
Паскаль
Решите любую, заранее буду рад.

Задача 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 | Автор: Furnitura | 2013-11-12, 21:01   |  Репутация: [ + 0 ]
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 | Автор: Berestovskiy | 2013-11-12, 21:59   |  Репутация: [ + 211 ]
Большое спасибо
3 | Автор: Furnitura | 2013-11-12, 22:01   |  Репутация: [ + 0 ]
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
4 | Автор: Berestovskiy | 2013-11-12, 22:03   |  Репутация: [ + 211 ]


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
4 | Автор: Berestovskiy | 2013-11-12, 22:03   |  Репутация: [ + 211 ]
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
5 | Автор: Berestovskiy | 2013-11-12, 22:09   |  Репутация: [ + 211 ]
Большое спасибо за всё.
6 | Автор: Furnitura | 2013-11-12, 22:14   |  Репутация: [ + 0 ]
обращайся

Нужна помощь? Сюда: vkontakte.ru/berestovskiy
7 | Автор: Berestovskiy | 2013-11-14, 00:35   |  Репутация: [ + 211 ]
3
var a:byte;
begin

read(a);
write(a,'9',9-a);
end.
8 | Автор: pazdeev | 2013-11-29, 13:42   |  Репутация: [ + 0 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Паскаль (Помогите Решить Задачу По Паскалю!!!!!!!!)
Страница 1 из 11
Поиск: