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

Пожалуйста, напишите программу в паскале (решение):

Известна масса каждого человека из группы. Верно ли, что масса самого тяжелого из них превышает массу самого легкого более чем в 2 раза?

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

    var min,max:integer;

    a:real;

    begin

    write("Vvedite massi vseh ludei iz gruppy: ");

    read(a);

    min:=a;

    while (a>0) do

    begin

    read(a);

    if (a>max) max:=a;

    if (a<min) min:=a;

    end;

    a:=max/min;

    if (a>2) then write("Verno") else write("Neverno");

    readln

    end.

     

Самые новые вопросы