c:=b-a;
Объяснение:
var a,b,c : integer;
begin
a:=9000000;
b:=1000;
writeln (c, ' Всего Людей');
readln;
end.
Var
NasMoskva, NasNewVas, raznica : integer;
Begin
NasMoskva := 9000000 ; NasNewVas := 1000;
raznica := NasMoskva - NasNewVas ;
Write('Raznica=', raznica) ;
Readln;
End.
Я смог
c:=b-a;
Объяснение:
var a,b,c : integer;
begin
a:=9000000;
b:=1000;
c:=b-a;
writeln (c, ' Всего Людей');
readln;
end.
Var
NasMoskva, NasNewVas, raznica : integer;
Begin
NasMoskva := 9000000 ; NasNewVas := 1000;
raznica := NasMoskva - NasNewVas ;
Write('Raznica=', raznica) ;
Readln;
End.
Объяснение:
Я смог