Пожалуйста, напишите программу в паскале (решение):
1-4 класс
|
Известна масса каждого человека из группы. Верно ли, что масса самого тяжелого из них превышает массу самого легкого более чем в 2 раза?
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.
Другие вопросы из категории
Читайте также
ПОЖАЛУЙСТА НАПИШИТЕ ОТВЕТ!!!!!!!!!!!!!!!!!!!!!!!!!!!
Напишите программу, вычисляющую значение следующего
выражения:
помогите написать программу в паскале пожалуйста.
интервале между двумя введёнными числами. Например, пользователь вводит числа 10 и 20, программа выводит «12 14 16 18», если -8 и -3, то «-6 –4». Если пользователь вводит, например, числа 6 и 8, программа ничего не выводит. Точно так же программа ничего не выводит, если введённые числа равны, или второе указанное число меньше первого.