Question

помогите решить информатику

Answer 1

Первая задача:

Var x, otv :integer;

begin

 otv:=x/36*100;

 writeln(otv);

end.

Вторая задача:

var a:integer;

begin

 if (a<25) writeln('НЕДОЛЁТ')

 else if (a>30) writeln('ПЕРЕЛЁТ')

 else writeln('ПОПАЛ');

end.

Answer 2

Ответ:

1.

var x:Integer;

begin

write('Введите бюджет ');

ReadLn(x);

writeln('Жилье ',x*0.36);

writeln('Все остальное ',x*0.64)

end.

2.

var a:Integer;

begin

Write('Введите число ');

ReadLn(a);

if a<25 then write('недолет') else

if a>30 then write('перелет') else

write('попал')

end.