Как выделить количество сотен в 6-тизначном числе.

@Donio · Регистрация: 24.11.2010

Студворк — интернет-сервис помощи студентам

Дано 6-тизначное число. Выделить количество сотен в нем.

@ChameleoN · 24.11.2010, 16:15

это как? Просто раздели на 100 и всё

@Donio · 24.11.2010, 16:23 **[ТС]**

Надо эту задачу на паскале записать, вот только я не знаю как записать это на паскале.

@mus · 24.11.2010, 16:34

если я правильно понял задание то вот

Pascal

var x,n:integer;
begin
writeln(' введите 6 значное число ');
readln(x);
n:=x/100;
writeln(' кол во сотен ',n);
readln;
end.

@ChameleoN · 24.11.2010, 16:37

Pascal

1	n:=x div100;

можт лучше так? чтоб точное кол-во сотен дал

@mus · 24.11.2010, 16:50

Сообщение от ChameleoN

Pascal

1	n:=x div100;

можт лучше так? чтоб точное кол-во сотен дал

результат будет одинаковый, хотя можно и так =)

@ChameleoN · 24.11.2010, 16:57

Не совсем одинаковый. Если не испольцовать mod то результат дробным выйдет. КСТАТИ у тебя не будет вычислять, т.к. integer нельзя делить

@Tjm · 24.11.2010, 17:10

если интересно - разбивка на цифры.
но можно и считать строкой (string) и преобразовывать (val, str);

Delphi

var   s_t,d_t,t,s,d,e:integer;
      k:longint;
begin
     k:=123456;
 
     s_t:=k div 100000;
     d_t:=k mod 100000 div 10000;
     t:=k mod 10000 div 1000;
     s:=k mod 1000 div 100;
     d:=k mod 100 div 10;
     e:=k mod 10;
 
     writeln(s_t,d_t,t,s,d,e);
 
 
 
     readln;
end.

@Donio · 24.11.2010, 17:54 **[ТС]**

Сообщение от ChameleoN

Pascal

1	n:=x div100;

можт лучше так? чтоб точное кол-во сотен дал

Сделал, но при x=123456 он выводит не кол-во сотен,а n=1234. Или это и есть кол-во сотен?

Добавлено через 2 минуты

Сообщение от Tjm

если интересно - разбивка на цифры.
но можно и считать строкой (string) и преобразовывать (val, str);

Delphi

var   s_t,d_t,t,s,d,e:integer;
      k:longint;
begin
     k:=123456;
 
     s_t:=k div 100000;
     d_t:=k mod 100000 div 10000;
     t:=k mod 10000 div 1000;
     s:=k mod 1000 div 100;
     d:=k mod 100 div 10;
     e:=k mod 10;
 
     writeln(s_t,d_t,t,s,d,e);
 
 
 
     readln;
end.

а как дальше выделить кол-во сотен?

Добавлено через 9 минут
ChameleoN, mus, Tjm, огромное спасибо всем. С задачей разобрался.

@ChameleoN · 24.11.2010, 20:55

ну да. 1234*100 =123400(эт округленно от 123456)

@Donio 0 / 0 / 0 Регистрация: 24.11.2010 Сообщений: 32
		1
	Как выделить количество сотен в 6-тизначном числе. 24.11.2010, 16:04. Показов 4846. Ответов 9 Метки нет (Все метки) Дано 6-тизначное число. Выделить количество сотен в нем. 0

@ChameleoN ТруЪ Одмин Всiя Руси 71 / 71 / 14 Регистрация: 20.11.2010 Сообщений: 284
	24.11.2010, 16:15	2
	это как? Просто раздели на 100 и всё 0

@Donio 0 / 0 / 0 Регистрация: 24.11.2010 Сообщений: 32
	24.11.2010, 16:23 [ТС]	3
	Надо эту задачу на паскале записать, вот только я не знаю как записать это на паскале. 0

@ChameleoN ТруЪ Одмин Всiя Руси 71 / 71 / 14 Регистрация: 20.11.2010 Сообщений: 284
	24.11.2010, 16:57	7
	Не совсем одинаковый. Если не испольцовать mod то результат дробным выйдет. КСТАТИ у тебя не будет вычислять, т.к. integer нельзя делить 0

@ChameleoN ТруЪ Одмин Всiя Руси 71 / 71 / 14 Регистрация: 20.11.2010 Сообщений: 284
	24.11.2010, 20:55	10
	ну да. 1234*100 =123400(эт округленно от 123456) 0

Опции темы