Question

Помогите пж. 100 баллов.

Answer 1

Ответ:

1. а)315 б) 23

2.

var a, b : integer;

begin

 read(a, b);

 writeln(2*b - 8*a*b*b - 1);

end.

3.

var rost, wes : integer;

begin

 read(rost, wes);

 if (rost > 165) and (wes < 80) then

   writeln('Prinyat')

 else

   writeln('Ne prinyat');

end.

4. Если имеется в виду, кол-во чётных чисел, не превышающих данное.

var n : integer;

begin

 read(n);

 writeln(n div 2);

end.

Дополнительно:

а, б)

var n, a, b, c : integer;

begin

 read(n);

 a := n div 100;

 n := n mod 100;

 

 b := n div 10;

 

 c := n mod 10;

 if (a+b+c mod 2 = 0) then

   writeln('a) Chetnoe')

 else

   writeln('a) Nechetnoe');

   

 if (a * b * c mod 3 = 0) then

   writeln('b) Kratno 3')

 else

   writeln('b) Ne kratno 3');

end.

Объяснение: