Дано натуральное число n (n>999). Найти: число сотен в нём, число тысяч в нём. в Паскале abc

Question

Информатика

Аника

19 декабря, 06:06

Дано натуральное число n (n>999). Найти: число сотен в нём, число тысяч в нём. в Паскале abc

+1

Ответы (2)

Знаете ответ на вопрос?

Ола · Answer 1

Var s, t, n:integer;

begin

writeln ('введите n>999') ;

readln (n) ;

s: = (n div 100) ;

if s>10 then s:=s mod 10;

t: = (n div 1000) ;

writeln ('количество сотен-->', s) ;

writeln ('количество тысяч-->', t) ;

end.

Радосвета · Answer 2

var x, n:integer;

begin writeln (' введите число ') ;

readln (x) ;

n:=x/100;

writeln (' кол во сотен ', n) ;

readln;

end.