1 задача. Простые типы данных.
Дано натуральное число:
- найти вторую (сначала) цифру данного числа;
- верно ли, что числа делятся на A, B и C (A, B, и C вводятся с клавиатуры)
2 задача. Простые типы данных.
Найти все двузначные числа, которые при умножении на 2 заканчиваются на 8, а при умножении на 3 - на 4.
3 задача. Задача о треугольнике.
Введите 3 числа. Если они могут быть длинами сторон равнобедренного тупоугольного треугольника, вычислить его площадь. Выведите длины сторон и площадь в порядке возрастания значений.
http://s1.ipicture.ru/uploads/20120510/ucR44bbN.gif
|
|
|
|
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
|
|
|
|
