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.
⇢