Перед началом учебного года все школьники проходят медицинский осмотр, каждому измеряют рост и вес. для каждого первоклассника необходимо также определить тип парты (по росту, всего 3 типа). проведите медицинский осмотр 500 школьников. составьте программу, содержащую процедуру, отвечающую за измерение роста и веса, и функцию, отвечающую за определение типа парты первоклассника. шкала типа парт: 140< = 140-150 > =150 программу составить в pascal abc !

Procedure getrv(var r, v: real; var final: boolean); { организует ввод и возвращает значения роста и веса.   значение параметра final=true - сигнал окончить ввод данных,   для чего вводят нули } begin   write('введите рост (см) и вес (кг) -> ');   readln(r, v);   final : = ((r > 0) and (v > 0)) end; function defdesk(r: real): string; begin   if r < = 140 then defdesk : = 's'   else if r < 150 then defdesk : = 'm'   else defdesk : = 'l' end; var   rost, ves: real;   flag: boolean; begin   repeat       getrv(rost, ves, flag);       if flag then writeln('нужна парта типа ', defdesk(rost))   until (not flag) end. тестовое решение: введите рост (см) и вес (кг) -> 135 31 нужна парта типа s введите рост (см) и вес (кг) -> 143 41 нужна парта типа m введите рост (см) и вес (кг) -> 151 48 нужна парта типа l введите рост (см) и вес (кг) -> 0 0

1) 2

2) 3

Объяснение:

Надеюсь .