Переведите из паскаля на кумир uses CRT;
var x: integer;
begin
x:=2000;
while x>0 do begin
write (x,'-14=');
x:= x-7;
writeln(x);
delay(50);
end;
writeln('конец алгоритма');
end.

Ви2006ка    3   01.02.2021 18:44    0