Регистрация
лера2083
13.01.2020 15:17
Информатика
Есть ответ 👍

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

184
259
Посмотреть ответы 2

Ответы на вопрос:

danyaсс
danyaсс
4,4(52 оценок)

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.

 

fhdsjkfalhd
fhdsjkfalhd
4,4(48 оценок)
20 звезд.можно легко проверить,переделав алгоритм. var s: integer; procedure f(n: integer); begin writeln('*'); if n> 0 then begin writeln('*'); s: =s+1; f(n-2); f(n div 2); f(n div 2); end; end; begin f(7); writeln(s); end.

Популярно: Информатика