Помогите решить пару задач в Turbo paskal очень срочно

01.01.2001

Помогите решить пару задач в 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.

Вас заинтересует