Составит блок-схему program Ivanchenko:
var n:integer;
s:string:
begin
writeln (BBegure UcJO ) :
repeat
readln (n) :
8:= 8+intloStr (abs (n)) +
until n=0.
=
writeln (s) :
end.​

Арина1666    3   08.06.2021 12:28    1