Новые сообщения · Правила  
  • Страница 1 из 1
  • 1
Модератор форума: Berestovskiy  
Прошу решить мне 3 задачи в Pascal, пожалуйста.
1 задача. Простые типы данных.
Дано натуральное число:
- найти вторую (сначала) цифру данного числа;
- верно ли, что числа делятся на A, B и C (A, B, и C вводятся с клавиатуры)

2 задача. Простые типы данных.
Найти все двузначные числа, которые при умножении на 2 заканчиваются на 8, а при умножении на 3 - на 4.

3 задача. Задача о треугольнике.
Введите 3 числа. Если они могут быть длинами сторон равнобедренного тупоугольного треугольника, вычислить его площадь. Выведите длины сторон и площадь в порядке возрастания значений.


http://s1.ipicture.ru/uploads/20120510/ucR44bbN.gif
1 | Автор: sAmskilled | 2012-05-31, 15:00   |  Репутация: [ + 0 ]
1.
var
a:byte;
begin
read(a);
write(a mod 10);
end.

2.
var
i:byte;
begin
for i:=10 to 99 do
if (i*2 mod 10=8)and(i*3 mod 10=4) then write(i,' ');
end.

"Спасибо" принимается в виде повышения репутации ( Зелёный плюсик:) ).Спасибо


Нужна помощь? Сюда: vkontakte.ru/berestovskiy
2 | Автор: Berestovskiy | 2012-06-01, 09:37   |  Репутация: [ + 211 ]
  • Страница 1 из 1
  • 1
Поиск: