ProPlay / Форумы / Главный / Помощь Pascal'ю

ГЛАВНАЯ

НОВОСТИ

СТАТЬИ

КОМАНДЫ

ДЕМКИ

VOD'ы

СТАВКИ

ТУРНИРЫ

КЛУБЫ

ФОРУМЫ

ГАЛЕРЕИ

САЙТ

Забыли пароль?
Регистрация

Расписание ProPlayTV

Мы ищем стримеров по League of Legends и DOTA2!

Самые богатые

ggtt	2664
Hvostyn	2400
GopaveC	2000
rmn1x	2000
Akon	1958
razdavalochka	994
CoolMast	700
Devostatortk	606
modify2h	600
Boevik	400

События ProPlay.ru

Сезон ставок The International 2015

Голосование

Counter-Strike: Global Offensive

Counter-Strike: Global Offensive #1

csgo.proplay.ru:27016	0/

Counter-Strike: Global Offensive #2

csgo.proplay.ru:27215	0/

Репортажи

SLTV StarSeries 6: Репортаж

SLTV StarSeries V: CS Global Offensive

Рейтинг ProPlay.ru: Январь 2013

Fnatic FragOut CS:GO League

SLTV StarSeries #4 CS:GO

SLTV Star Series #3: Репортаж

GosuLeague #3: Репортаж

SLTV Star Series #2: Репортаж

The Premier League Season 2: Репортаж

36ON.RU BATTLE CITY: Плей-офф

Fantasy Football - Евро 2012: Лига ProPlay.ru

Rising Stars Challenge

36ON.RU BATTLE CITY: Групповой этап

FnaticRC CS League: Групповой этап

It's Gosu's Monthly Madness: 2 сезон

36ON.RU BATTLE CITY: 2й квалификационный тур

The Premier League: 2 cезон

Fantasy Football - UEFA Champions League лига ProPlay.ru

36ON.RU BATTLE CITY: 1й квалификационный тур

36ON.RU BATTLE CITY: Составы команд

	ProPlay.ru > Форумы > Главный > Помощь Pascal'ю

beKa_b @ 25.10.09 12:53

[пожаловаться]

Дано четырехзначное натуральное число.Найти число,полученное перестановкой второй и третьей цифр числа.Например из числа 5434 получить 5344.

как решать ebl??

beKa_b @ 25.10.09 12:58

[пожаловаться]

LаysMax @ 25.10.09 12:58

[пожаловаться]

VIVALA @ 25.10.09 12:59

[пожаловаться]

думай головой Confused

mrhr @ 25.10.09 13:01

[пожаловаться]

Думаю так: 5432 получить 5342 Laughing

mrhr @ 25.10.09 13:03

[пожаловаться]

От первоначального числа надо отнять 90

brablay36484 @ 25.10.09 13:05

[пожаловаться]

bRAZILR_ @ 25.10.09 13:08

[пожаловаться]

beKa_b @ 25.10.09 13:08

[пожаловаться]

с7ку ход решение в студию Mad

#10

Aynes @ 25.10.09 13:14

[пожаловаться]

var a,b,c,d,e,f:integer;
begin
writeln('Ввидите число');
readln(a);
b:=(a mod 10);
c:=(a mod 100);
d:=(a mod 1000);
e:=(a div 1000);
writeln(e,c,d,b);
readln;
end.

#11

VIVALA @ 25.10.09 13:15

[пожаловаться]

#9 ваджайна Laughing

#12

ShadowFr @ 25.10.09 13:15

[пожаловаться]

#13

BeN1ce-Today I will be defiant @ 25.10.09 13:16

[пожаловаться]

не правильный вопрос..
Вопрос Confused

как найти 2е и 3е число(математически)
А потом уже составить программу...
ппц озадачил
#10 fewch
думаешь прокатит Confused

#14

beKa_b @ 25.10.09 13:17

[пожаловаться]

#10
зачем столько переменных??? Mad

#15

Necrospeed @ 25.10.09 13:19

[пожаловаться]

#14 благодарить нужно, а не спрашивать. Такие задачи даже я мог в 8 классе решать хоть и не особо любил инфу

#16

french1g @ 25.10.09 13:22

[пожаловаться]

хахахаха fewch отжег )) а если там будет хотя бы 50 значное число? )) не 343637?)

#17

V4nz0r vbb @ 25.10.09 13:23

[пожаловаться]

11 класс?

#18

V4nz0r vbb @ 25.10.09 13:24

[пожаловаться]

не хватает данных Shocked

#19

Aynes @ 25.10.09 13:25

[пожаловаться]

№ 16 "Дано четырехзначное натуральное число"
а насчёт переменных - просто привывк использовать много переменных

#20

[пожаловаться]

var a,v,t,o,r,m,u,d,a,k:integer;
begin
writeln('Понюхайте мою писю.');
readln(a);
b:=(a mod 10);
c:=(a mod 100);
d:=(a mod 1000);
e:=(a div 1000);
writeln(n,a,h,u,j);
readln;
end.

З.Ы.: ИНЕБЛАГОДАРИ Laughing

#21

french1g @ 25.10.09 13:27

[пожаловаться]

19 ну ладно не спорю, для школы и так сойдет наверное )

#22

beKa_b @ 25.10.09 13:28

[пожаловаться]

#17
с7ка универ!!!
#20
ты м7дак и этим всё сказанно! Razz

#23

Animal1ty [FoD] @ 25.10.09 13:30

[пожаловаться]

можер было задать цикл в #10 и кидать всё в строковый массив иил ещё проще - в строку.. А потом задать вывод.

#24

Aynes @ 25.10.09 13:31

[пожаловаться]

джобана пацаны, сори, ошибся мальца Shocked

var a,b,c,d,e,f:integer;
begin
writeln('Ввидите число');
readln(a);
b:=(a mod 10);
c:=((a mod 100) div 10);
d:=((a mod 1000) div 100);
e:=(a div 1000);
writeln(e,c,d,b);
readln;
end.
вот так должно быть

#25

beKa_b @ 25.10.09 13:33

[пожаловаться]

#24
ща проверю!! Razz

#26

[пожаловаться]

#22
Твоя мать мудк, паяло не мудк.

#27

Animal1ty [FoD] @ 25.10.09 13:38

[пожаловаться]

#26

твоя мать членодевка, твой отец крысоед, а ты сам мудк и хуесос.(с)

Shocked

#28

ГастербайтерПроДотер @ 25.10.09 13:42

[пожаловаться]

program brableyzada4a;

uses Crt;

var

x, y : integer;

begin
repeat
clrscr;
writeln('Vvedite 4eturi zna4noe 4islo (eto demo versiya vvodit mojno tolko 5434 :');
readln(x);
if x<>5434 then writeln('Powel nafig, nefig programu obmanuvat. Najmi enter dlya prodoljeniya')
else

writeln('Novoe 4islo - 5344 . Obrachaytes eche, dosvidanie');
readkey;

until x=5434;

end.

у моего препода по програмиирования в инститте это бы прокатило

#29

beKa_b @ 25.10.09 13:53

[пожаловаться]