На Pascal:
var a, b: integer;
begin
readln(a);
b:=a div 1000;
writeln(b*10);
end.
var a,c,rez: integer;
writeln('a = ');
read(a);
c := a div 1000;
rez := c * 10;
writeln('rez = ',rez);
На Pascal:
var a, b: integer;
begin
readln(a);
b:=a div 1000;
writeln(b*10);
end.
var a,c,rez: integer;
begin
writeln('a = ');
read(a);
c := a div 1000;
rez := c * 10;
writeln('rez = ',rez);
end.