Ввести три числа. Вывести первые цифры чисел. использовать процедуру замены числа на его первую цифру

@net_haker1 · Регистрация: 02.10.2013

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

Ввести три числа. Вывести первые цифры чисел. использовать процедуру замены числа на его первую цифру.

@ildwine · 30.10.2013, 11:16

Pascal

var
  a : array [1..3] of word;
  i : byte;
  
procedure change(var num : word);
begin  
  while num > 10 do
    num := num div 10
end;
 
begin
  for i := 1 to 3 do
  begin
    write('введите ', i, ' число: ');
    readln(a[i]);
    change(a[i])
  end;
  for i := 1 to 3 do writeln(a[i])
end.

@net_haker1 · 05.11.2013, 09:02 **[ТС]**

Как без word и byte?

@Puporev · 05.11.2013, 09:30

integer

@net_haker1 0 / 0 / 2 Регистрация: 02.10.2013 Сообщений: 155
		1
	Ввести три числа. Вывести первые цифры чисел. использовать процедуру замены числа на его первую цифру 30.10.2013, 10:30. Показов 2557. Ответов 3 Метки нет (Все метки) Ввести три числа. Вывести первые цифры чисел. использовать процедуру замены числа на его первую цифру. 0

@net_haker1 0 / 0 / 2 Регистрация: 02.10.2013 Сообщений: 155
	05.11.2013, 09:02 [ТС]	3
	Как без word и byte? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	05.11.2013, 09:30	4
	integer 0