Вывести старшую цифру дробной части и младшую цифру целой части числа

@Nina Lupinova · Регистрация: 06.04.2010

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

Даны натуральные числа M и N. Вывести старшую цифру дробной части и младшую цифру целой части числа M/N.

@Puporev · 06.04.2010, 08:22

Pascal

uses crt;
type natur=1..30000;
var m,n,c,d:natur;
begin
clrscr;
repeat
writeln('Введите 2 натуральных числа до 30000');
readln(m,n);
until(m>0)and(m<=30000)and(n>0)and(n<=30000);
c:=trunc(m/n)mod 10;
writeln('Младшая цифра целой части числа ',m/n:0:2,' = ',c);
d:=trunc(m/n*10)mod 10;
write('Старшая цифра дробной части  = ',d);
readln
end.

@Nina Lupinova · 06.04.2010, 20:41 **[ТС]**

Спасибо..Огромное просто!!!

@Nina Lupinova 0 / 0 / 0 Регистрация: 06.04.2010 Сообщений: 23
		1
	Вывести старшую цифру дробной части и младшую цифру целой части числа 06.04.2010, 07:54. Показов 2027. Ответов 2 Метки нет (Все метки) Даны натуральные числа M и N. Вывести старшую цифру дробной части и младшую цифру целой части числа M/N. 0

@Nina Lupinova 0 / 0 / 0 Регистрация: 06.04.2010 Сообщений: 23
	06.04.2010, 20:41 [ТС]	3
	Спасибо..Огромное просто!!! 0

Опции темы

Вывести старшую цифру дробной части и младшую цифру целой части числа

Решение