Ответы
Ответ дал:
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.
Вас заинтересует
1 год назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад