pascal - Помощь студентам

Леська17 · 22.12.2010, 16:08

вывести 3 последних цифры числа

stck · 22.12.2010, 16:18

Код:

uses crt;

var i,j:integer;
s:string;

begin
clrscr;
write('Введите число:');
readln(i);
str(i,s,j);
s:=copy(s,length(s)-3,3);
val(s,i,j);
writeln(i);
end;

Леська17 · 22.12.2010, 16:22

Спасибо большое)

22.12.2010, 16:08	#1
Леська17 Пользователь Регистрация: 15.11.2010 Сообщений: 15	pascal вывести 3 последних цифры числа

22.12.2010, 16:18	#2
stck Пользователь Регистрация: 14.06.2010 Сообщений: 84	Код: `uses crt; var i,j:integer; s:string; begin clrscr; write('Введите число:'); readln(i); str(i,s,j); s:=copy(s,length(s)-3,3); val(s,i,j); writeln(i); end;`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Turbo Pascal or Pascal ABC	Ikram	Паскаль, Turbo Pascal, PascalABC.NET	0	27.04.2010 13:44
а free pascal не читает задачи которые написаны на turbo pascal?	demonara	Паскаль, Turbo Pascal, PascalABC.NET	3	25.05.2009 16:28
Перевод кода из Pascal в Object Pascal	zemskov77	Общие вопросы Delphi	1	03.01.2009 09:37

22.12.2010, 16:22	#3
Леська17 Пользователь Регистрация: 15.11.2010 Сообщений: 15	Спасибо большое)