Определите , что будет напечатано после выполнения программы: var k, s : integer ;
begin
k := 1;
s := 3;
while s < 100 do
begin
s := s + 5 ;
k := k + 2
end;
write(k)
end

Кatе    3   20.12.2020 19:55    3