Предмет: Информатика,
автор: Drako777
Помогите решить , нужно программу и блок схему
Приложения:

Ответы
Автор ответа:
0
var r,v,s : integer;
begin
write('Вес в кг = ');
readln(v);
write('Рост в см = ');
readln(r);
s:=r-100;
if s<v
then writeln('Похудеть на ',v-s,' кг')
else if s>v then writeln('Поправиться на ',s-v,' кг')
else writeln('Идеальный вес');
end.
begin
write('Вес в кг = ');
readln(v);
write('Рост в см = ');
readln(r);
s:=r-100;
if s<v
then writeln('Похудеть на ',v-s,' кг')
else if s>v then writeln('Поправиться на ',s-v,' кг')
else writeln('Идеальный вес');
end.
Похожие вопросы
Предмет: Қазақ тiлi,
автор: shukronaesonova
Предмет: Биология,
автор: Snezhana12Pro
Предмет: Информатика,
автор: energy5569
Предмет: Алгебра,
автор: Chatkin1998
Предмет: Химия,
автор: marinaalekseeva