2. Банку требуется сообщить вкладчику, что его процент дохода при вкладе 500 000 тенге составит 12,5% в год, а при сумме 350 000 тенге и выше составит 13,2% в год.
Запишите конструкцию IF для обработки условия данной задачи.
4. Клетки грибов делятся на четыре части каждые пять минут. Определите, какое
количество клеток будет через N минут. Напишите цикл, который будет определять
количество клеток через N минут (N- целое число, вводимое с клавиатуры).
5. Рассмотрите блок-схему и заполните трассировочную таблицу.
Начало
Sum
10
sum=0
m=10
Нет
k<5
Да
k-ke
sum
sum=k+m
m=m 2
Конец​

Клавиатура утверждала. что главнее она ведь без нее печатать тексты нельзя. Память доказывала, что она главнее всех, ведь она все, всегда помнит. Процессор говорил, что главный он, потому что компьютеру работать. А монитор считал, что главный он-ведь без монитора и процессор, и клавиатура и память не нужна. Долго они спорили. Пришёл хозяин компьютера-мальчик по имени Ваня. Он увидел, что они ссорятся и объяснил им: что они все дополняют компьютер, ведь без памяти, монитора и клавиатуры-компьютер работать не будет. Они все поняли и жили не тужили.

1)Program massiv;

Var mas:array[1..20] of integer;

a,b,i,sum:integer;

Begin

sum:=0;

For i:=1 To 20 Do

begin

mas[i]:= random(100); {Заполняем массив случайными числами в промежетке от 0 до 99 (можешь изменить промежуток}

write(mas[i],' ');

end;

Writeln('Введите a,b');

Readln(a,b);

For i:=1 To 20 Do

begin if (mas[i]>a) and (mas[i]<b) Then sum:=sum+mas[i]; end; Writeln(sum); end.    2)  Program massiv; Var mas:array[1..20] of integer; i,min,max,pr:integer; Begin For i:=1 To 20 Do begin mas[i]:= random(15); write(mas[i],' '); end; Writeln; min:=30000; max:=0; For i:=1 To 15 Do begin if mas[i]>max Then max:=mas[i]; if mas[i]<min Then min:=mas[i]; end; pr:=min*max; Writeln(pr); end.  3)Program massiv;Var mas:array[1..20] of integer; a,b,i,k:integer;BeginFor i:=1 To 20 Dobegin mas[i]:= random(100); {Заполняем массив случайными числами в промежетке от 0 до 99 (можешь изменить промежуток}write(mas[i],' ');end;Writeln('Введите a,b,k');Readln(a,b,k);i:=1;While i<>20 Dobeginif (mas[i]>a) and (mas[i]<b) and(mas[i] mod k=0) ThenWrite(mas[i],' ');i:=i+1;end;　end. 4)Var mas:array[1..20] of integer; i,min,max,pr:integer; Begin randomize; For i:=1 To 20 Do begin mas[i]:= random(100)+1; write(mas[i],' '); end; Writeln; pr:=1; For i:=1 To 15 Do begin pr:=pr*mas[i]; end; Writeln(pr); end.