Lazarus: Виконайте фрагмент програми та з'ясуйте, якими будуть значення змінних після його завершення: a) k := 1; a := 100;
while a > 10do
begin
a := a/2;
k := k + 1;
end;

b) s := 0; a := 5;
while a < 100 do
begin
s := s + a;
a:= a*2
end

hbgggb    1   08.04.2021 21:06    4