program zadacha1; var ves, rost, optves: integer; begin write('введите массу тела'); read(ves); write('введите рост в см'); read(rost); optves: =rost-100; if ves> optves then write('вам необходимо похудеть на', abs(optves-ves) ); if ves< optves then write('вам необходимо поправиться на', abs(optves-ves) ); if ves=optves then write ('ваш вес оптимальный')end.
Ответ дал: Гость
var i,s: integer;
begin
for i: = 1 to 100 do
s: = s+ i;
writeln(s/100);
end.
Ответ дал: Гость
1)сила всех и глубина вростания репки, так же состояние здоровья каждого и состояние почвы
а так же не завалялась ли где нормальная лопата
2)смотря что такое по братски, но зная карлсона, он возьмет себе большой
3)главное чтоб пончику хватило. а больше он все равно сделать не в состоянии
4) радиус двери, радиус вини, прирост от сгущенки, прирост от меда, кол-во того и другого, скорость похудения и тп
Популярные вопросы