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

@abcpascal · Регистрация: 26.11.2011

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

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

@WebMax 2.0 · 07.12.2011, 23:34

Pascal

uses crt;
var a,b,c:integer;
 
Procedure F(var a:integer);
begin
   while a>9 do
   begin
   a:=a mod 10;
   end;
end;
 
begin
   Write('Ââåäèòå òðè ÷èñëà: ');readln(a,b,c);
   f(a);f(b);f(c);
   Write(a,',',b,',',c);
end.

@КонецСвета · 07.12.2011, 23:38

Pascal

uses crt;
var a,b,c: integer;
 
procedure Zamena( var x: integer);
begin
x:=x mod 10;
writeln(x);
end;
 
begin
writeln('a,b,c=');
readln(a,b,c);
writeln('a,b,c=');
Zamena(a);
Zamena( b);
Zamena( c);
end.

@abcpascal 5 / 5 / 6 Регистрация: 26.11.2011 Сообщений: 51
		1
	Ввести три числа. Вывести последние цифры чисел. Использовать процедуру замены числа на его последнюю цифру 07.12.2011, 22:27. Показов 2805. Ответов 2 Метки нет (Все метки) Ввести три числа. Вывести последние цифры чисел. Использовать процедуру замены числа на его последнюю цифру. 0

	07.12.2011, 23:38

Опции темы

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

Решение