Определите значения переменных s и i после выполнения фрагмента программы:
s:=0; i:=5;
while i>0 do
begin
s:=s+i; i:=i-l;
end;

S=15

i=0

Объяснение:

1) s = 5 i = 4

2) s = 9 i = 3

3) s = 12 i = 2

4) s = 14 i = 1

5) s = 15 i = 0

Объяснение:

В цикле проверяется условие пока i больше нуля в конце получается s = 15 i = 0

без остатка нет

25: 2=12+1 клетка в остатке

программа №4program str999; uses crt; var s: string; begin writeln('введіте фразу'); read(s); if (s='край озер') then writeln ('край озер лесов и рек'); if (s='я учусь в школе') then writeln ('я учусь в 10-м классе') end. №5program p_1; uses crt; var s: string; begin writeln('введите фразу'); read(s); if (s='моя родина беларусь') then writeln ('беларусь моя родина'); if (s='люблю цябе мой родны кут') then writeln ('мой родны кут люблю цябе')  end.