Скажите чему будет равен k (желательно с объяснением, чтобы понять решение)
Program Primer;
var k, z: integer;
begin
z:=19;
k:=z+7;
while k>=2 do
k:=k-2;
k:=k+1;
wrileln(k)
end.

sergeyshevchukp06kj3    3   04.05.2020 15:26    10