из сотен каждого числа получить двузначное число

@елена86 · Регистрация: 04.10.2011

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

даны два четырехзначных числа. из сотен каждого числа получить двузначное число

@I2um1 · 04.10.2011, 16:20

Pascal

var x, y, r : integer;
begin
   write('Первое число = '); readln(x);
   write('Второе число = '); readln(y);
   r := (trunc(x / 100) mod 10) * 10 + (trunc(y / 100) mod 10);
   writeln('Ответ: ', r)
end.

Функция trunc отбрасывает дробную часть числа.

@[C]aMcoH · 04.10.2011, 19:44

Разве когда тип данных integer можно использовать знак / ???
Насколько я знаю деление там через div и mod .??

@Puporev · 05.10.2011, 13:16

[C]aMcoH, Можно, если есть trunc, но в данном случае правильно div.

@елена86 0 / 0 / 0 Регистрация: 04.10.2011 Сообщений: 15
		1
	из сотен каждого числа получить двузначное число 04.10.2011, 16:15. Показов 800. Ответов 3 Метки нет (Все метки) даны два четырехзначных числа. из сотен каждого числа получить двузначное число 0

@[C]aMcoH 1 / 1 / 1 Регистрация: 03.10.2011 Сообщений: 7
	04.10.2011, 19:44	3
	Разве когда тип данных integer можно использовать знак / ??? Насколько я знаю деление там через div и mod .?? 0

@Puporev Почетный модератор 64288 / 47587 / 32739 Регистрация: 18.05.2008 Сообщений: 115,182
	05.10.2011, 13:16	4
	[C]aMcoH, Можно, если есть trunc, но в данном случае правильно div. 0

Опции темы