Дано натуральное число 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.
Не нашли ответ?
Похожие вопросы