Размещено 5 лет назад по предмету
Другие предметы
от ancdefg01
Скажите, пожалуйста, чему будет равен 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.