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

Дано натуральное число n (n>999). Найти: число сотен в нём, число тысяч в нём.в Паскале abc
Гость
Ответ(ы) на вопрос:
Гость
var x,n:integer; begin writeln(' введите число '); readln(x); n:=x/100; writeln(' кол во сотен ',n); readln; end.
Гость
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.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы