Var sm, kg:integer;
begin
write('Введите рост (см): ');
readln(sm);
write('Введите вес (кг): ');
readln(kg);
if (sm-100)<kg then
write('Вам нужно похудеть на ',kg-(sm-100),' кг')
else
write('Вам нужно поправиться на ',sm-100-kg,' кг');
end.
266 минут понадобиться что передать 16 гигабайт по каналу 8мбит/с
№3
j=3
k=3
если j больше чем k то j = k - 2, т.е. j = 1
иначе k = k - 1, т.е. k = 2
1)
огурцы помидоры
москвичи
трактарист
дети
ученики
1. A2=144/12/12=1; B2=144/12*2=24
2. A2=144/(12*12)=1
3. 0, так как на 0 делить нельзя.