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

Question

Информатика

Манюта

21 июня, 14:11

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

+1

Ответы (2)

Знаешь ответ?

Евдя · Answer 1

var x, n:integer;

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

readln (x);

n:=x/100;

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

readln;

end.

Иулиан · Answer 2

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.