Помогите решить задачу...

Тема в разделе "Информатика", создана пользователем ZAGORIK85, 19 мар 2010.

  1. ZAGORIK85

    ZAGORIK85 New Member

    Помогите решить задачу по ИВТ на языке паскаль.Ввести пять чисел и найти наибольшее из них
     
    ZAGORIK85, 19 мар 2010
    #1
  2. Dolby

    Dolby New Member

    Program z1;
    var
    a1,a2,a3,a4,a5,ab1,ab2,ab3,max1:integer;
    begin
    writeln('Введите 5 чисел');
    readln(a1,a2,a3,a4,a5);
    ab1:=max(a1,a2);
    ab2:=max(a3,a4);
    ab3:=max(ab1,ab2);
    max1:=max(ab3,a5);
    writeln(max1);
    end.
     
    Dolby, 19 мар 2010
    #2

Поделиться этой страницей

Наша группа