Question

4.29 с клавиатуры вводится два трехзначных числа . Возвести первое число в квадрат, а из второго извлечь квадратный корень, если хотя бы у одного из чисел средняя цифра четная. В противном случае из первого числа извлечь квадратный корень, а второе возвести в квадрат. Вывести измененные числа на экран.

4.37 Составить программу, которая вычисляет оптимальный вес пользователя, сравнивает его с реальным весом (его вводит пользователь) и выдает рекомендацию о необходимости поправиться или похудеть на некоторое количество килограммов или сообщает, что пользователь в идеальной форме. Оптимальный вес вычисляется по формуле:

Рост (в сантиметрах) - 100

8 класс решите пожалуйста !!!

​

Answer 1

Ответ:

Объяснение:

1. var a,b: integer;

begin

 write('a b через пробел: ');

 readln(a,b);

 if (((a div 10) mod 10) mod 2 = 0) or

    (((b div 10) mod 10) mod 2 =0) then  

 begin

   a:=a*a; b:=floor(sqrt(b));

 end

 else

 begin

   a:=floor(sqrt(a));

   b:=b*b;

 end;

 writeln('a = ',a,'  b = ',b);

end.

2.program xxx;

var

o,r,v:integer;

begin

write('Введите рост: ');

readln(r);

o:=r-100;

write('Введите свой вес: ');

readln(v);

if v>o then

 writeln('Вам надо похудеть на ',v-o,' кг');

if v<o then

 writeln('Вам надо потолстеть на ',o-v,' кг');

if v=o then writeln('Ваш вес оптимальный');

readln;

end.