Линейная программа - Паскаль, Turbo Pascal, PascalABC.NET

STALKER7538 · 28.12.2011, 18:08

дано четырехзначное число А. составить программу, которая бы меняла местами первые две цифры введенного числа с последними двумя, не меняя их взаимного расположения.

Hacker19_90 · 28.12.2011, 19:54

Код:

Readln (chislo);
last := chislo mod 100;
first := chislo div 100;
chislo := last * 100 + first;

28.12.2011, 18:08	#1
STALKER7538 Пользователь Регистрация: 21.06.2010 Сообщений: 22	Линейная программа дано четырехзначное число А. составить программу, которая бы меняла местами первые две цифры введенного числа с последними двумя, не меняя их взаимного расположения.

28.12.2011, 19:54	#2
Hacker19_90 Delphi Warrior Старожил Регистрация: 15.08.2008 Сообщений: 2,502	Код: `Readln (chislo); last := chislo mod 100; first := chislo div 100; chislo := last * 100 + first;` *Mess with the best, die like the rest.* (с) Hackers Лабораторные, курсовые на Delphi\Pascal\C++ ya.flex-freelance@yandex.ru Icq - 636-954-303

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Линейная программа.Pascal ABC.	Lols	Помощь студентам	2	04.05.2011 21:26
Линейная программа	stas135642	Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM	1	31.03.2011 19:15
Линейная интерполяция, программа на TP	marishaliza	Помощь студентам	0	09.03.2011 15:35
Линейная программа на dev-c++	Akmall	Помощь студентам	1	04.12.2010 20:24
Линейная интерполяция	Gebbellz	Помощь студентам	8	14.06.2010 09:51