profile
Опубликовано 6 лет назад по предмету Информатика от slm82834

ПОМОГИТЕ СРОЧНО НАДО!!!

Записать в тетради программу, которая выводит на экран максимальное из трех введенных с клавиатуры чисел.

  1. Ответ
    Ответ дан Luceferks

    var i,a,b,c:integer;

    begin

       write('Введите число A: '); read(a);

       write('Введите число B: '); read(b);

       write('Введите число C: '); read(c);

       if a > b then i := a else i := b;

       if c > i then i := c else i := i;

       write('Самое большое число из 3 чисел = ',i);

    end.

    1. Ответ
      Ответ дан slm82834
      Спасибо
  2. Ответ
    Ответ дан аыыа

    program znanija;

    var

    a,b,c:real;

    begin

    writeln('Введите три числа');

    readln(a,b,c);

    if ((a>c) and (c>b))or ((a>b) and (b>c)) then

    writeln('Максимальное число ',a);

    if ((c>a) and (a>b))or ((c>b) and (b>a)) then

    writeln('Максимальное число ',c);

    if ((b>a) and (a>c))or ((b>c) and (c>a)) then

    writeln('Максимальное число ',b);

    end.

    1. Ответ
      Ответ дан slm82834
      Спасибо
Самые новые вопросы