Вопрос по информатике:
Дано натуральное число n (n>999). Найти: число сотен в нём, число тысяч в нём.в Паскале abc
Пожаловаться
- 08.04.2017 14:52
- Информатика
- remove_red_eye 6857
- thumb_up 12
Ответы и объяснения 2
var x,n:integer;
begin writeln(' введите число ');
readln(x);
n:=x/100;
writeln(' кол во сотен ',n);
readln;
end.
begin writeln(' введите число ');
readln(x);
n:=x/100;
writeln(' кол во сотен ',n);
readln;
end.
Пожаловаться
- 09.04.2017 19:57
- thumb_up 14
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.
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.
Пожаловаться
- 01.01.1970 00:00
- thumb_up 18
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы