Пожалуйста, напишите программу в паскале (решение): Известна ...
Пожалуйста, напишите программу в паскале (решение):Известна масса каждого человека из группы. Верно ли, что масса самого тяжелого из них превышает массу самого легкого более чем в 2 раза?
Есть ответ
18.12.2022
260
Ответ
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 (a2) then write("Verno") else write("Neverno");
readln
end.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
18.12.2022
