Question

НУЖНО СДЕЛАТЬ В ПАСКАЛЕ

1) В спортивный кружок принимаются люди с ростом выше 170 см и весом меньше 58. Определите, подходит ли кандидат в модели по введенному весу и росту?

Answer 1

Ответ:

См. объяснение

Объяснение:

Program rostives;

Var r, v: real;

Begin

 Writeln('Программа определяет пригодность человека для кружка по заданным параметрам.');

 Write('Введите рост (в см): ');

 Readln(r);

 Write('Введите вес (в кг): ');

 Readln(v);

 if (r>170) and (v<58) then write('Кандидат подходит в модели')

 else write('Кандидат не подходит в модели');

 Readln;

End.

6a689f6f3bc85206812c3dd66adc6fde.pas