Регистрация
медвва
22.04.2021 22:24
Информатика
Есть ответ 👍

решить:
1. Определить, что появится на экране компьютера, после выполнения следующей программы. (Исходные

данные a=2; b=15.) В качестве результата нужно указать не только ответ, но и трассировочную таблицу.

var a,b:integer;

begin

write('a = '); readln(a);

write('b = '); readln(b);

while a < 2*b do begin

b:=b+6;

a:=a+b;

end;

writeln('a = ',a);

end.

2. Численность населения в некотором городе каждый год увеличивается на 2% по отношению к

предыдущему году. На данный момент в городе проживает F человек. Какова будет численность населения

города через 5 лет.

200
236
Посмотреть ответы 1

Ответы на вопрос:

reor1878p02hjw
reor1878p02hjw
4,8(80 оценок)
Var       a, b, c: real; function isbetween(x, a, b: real): boolean; var       t: real; begin       if a < b then       begin               t : = a;               a : = b;               b : = t;       end;       isbetween : = (a > = b) and (a > = x) and (x > = b); end; begin             readln(a, b, c); // не вводить одинаковых!       write('среднее число №');             if isbetween(a, b, c) then writeln(1);       if isbetween(b, a, c) then writeln(2);       if isbetween(c, b, a) then writeln(3); end.

Популярно: Информатика