Предмет: Информатика,
автор: глупая34
ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ СРОЧНО!!!!
Написать программу:
в модельное агенство принимаются девушки с ростом выше 170см и весом меньше 58кг. Определите подходит ли кандидат в модели по введенному весу и росту
Ответы
Автор ответа:
0
Uses crt;
h,m:integer;
Begin
Clrscr;
Writeln('Рост девушки=');
Readln(h);
Writeln('вес девушки=');
Readln(m);
If (h>170) and (m<58) then writeln('девушка принета') else writeln(' девушка не принета');
Readkey;
End.
h,m:integer;
Begin
Clrscr;
Writeln('Рост девушки=');
Readln(h);
Writeln('вес девушки=');
Readln(m);
If (h>170) and (m<58) then writeln('девушка принета') else writeln(' девушка не принета');
Readkey;
End.
Похожие вопросы
Предмет: Математика,
автор: Аноним
Предмет: Биология,
автор: Boginya777
Предмет: Биология,
автор: moskvichka201
Предмет: Математика,
автор: matritsa2004
Предмет: Математика,
автор: elenakazibek