Ответы на вопрос:
Writeln ('введите фамилию ',fam); readln(fam); writeln ('введите вес ',mas); readln(mas); writeln ('введите рост ',h); readln(h); writeln ('возраст ',v); readln(v); if mas> (h-100) then writeln('вам надо похудеть'); if mas< (h-100) then writeln('у вас недовес'); if mas=(h-100) then writeln('ваш вес в норме'); if v> =18 then writeln ('совершеннолетний') else writeln('несовершеннолетний');
Популярно: Информатика
-
варвара56353653607.03.2023 01:27
-
kristail200310197927.04.2023 18:16
-
Eg0rMirn9y15.09.2021 20:48
-
rubon27.08.2021 13:24
-
Vikzza07.09.2021 18:08
-
tubip88807.02.2021 18:13
-
angelokfrimen11.02.2023 11:18
-
alexandrvseznaika17.01.2023 02:42
-
OT709.09.2022 03:10
-
matvejp81628.08.2022 20:52