Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

В школу танцев принимаются девушки и юноши, имеющие рост не ниже 168 и не выше 178 см. Их вес должен соотноситься с ростом по формуле : значение веса <= значение роста -115

Ответ оставил Гость

Var r,v:real;
begin
write(Рост? ); readln(r);
write(Вес? ); readln(v);
if (r >= 168)and(r <= 178)and(v < r-115) then writeln(Принят)
else writeln(Не принят);
readln
end.