Помогите решить пару задач в Turbo paskal очень срочно
1.Два прямоугольных треугольника заданы своими катетами. определить у кого из них площадь больше
2.даны два четырехзначных числа. определить у какого из них четных цифр больше
-
примени теорему Пифагора
2. выдели цифры и считай четные, примени эту прогу
ses crt;
var x,sum: integer;
begin
clrscr;
readln(n);
sum := 0;
while n<>0 do
begin
sum:=sum + x mod 10;
n := n div 10;
end;
write('Сумма цифр = ',sum);
readln;
end.Источник: ум -
1. пермножить длины катетов, у кого произведение больше, у того и площадь больше
begin
(* ввод данных *)
s1 := k11*k12;
s2 := k21*k22;
if s1> s2 then
(* первый больше *)
else
if s2> s1 then
(* второй больше *)
else
(* равны *)
end.
