Расписание ProPlayTV
Counter-Strike: Global Offensive
Counter-Strike: Global Offensive #1
csgo.proplay.ru:27016
0/
Counter-Strike: Global Offensive #2
csgo.proplay.ru:27215
0/
#1
beKa_b @ 25.10.09 12:53
[пожаловаться ]
Дано четырехзначное натуральное число.Найти число,полученное перестановкой второй и третьей цифр числа.Например из числа 5434 получить 5344.
как решать ebl??
#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.
#13
BeN1ce-Today I will be defiant @ 25.10.09 13:16
[пожаловаться ]
не правильный вопрос..
Вопрос
как найти 2е и 3е число(математически)
А потом уже составить программу...
ппц озадачил
#10 fewch
думаешь прокатит
#15
Necrospeed @ 25.10.09 13:19
[пожаловаться ]
#14 благодарить нужно, а не спрашивать. Такие задачи даже я мог в 8 классе решать хоть и не особо любил инфу
#16
french1g @ 25.10.09 13:22
[пожаловаться ]
хахахаха fewch отжег )) а если там будет хотя бы 50 значное число? )) не 343637?)
#19
Aynes @ 25.10.09 13:25
[пожаловаться ]
№ 16 "Дано четырехзначное натуральное число"
а насчёт переменных - просто привывк использовать много переменных
#20
ПАЯЛО [Все права защищены.] @ 25.10.09 13:25
[пожаловаться ]
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.
З.Ы.: ИНЕБЛАГОДАРИ
#21
french1g @ 25.10.09 13:27
[пожаловаться ]
19 ну ладно не спорю, для школы и так сойдет наверное )
#22
beKa_b @ 25.10.09 13:28
[пожаловаться ]
#17
с7ка универ!!!
#20
ты м7дак и этим всё сказанно!
#23
Animal1ty [FoD] @ 25.10.09 13:30
[пожаловаться ]
можер было задать цикл в #10 и кидать всё в строковый массив иил ещё проще - в строку.. А потом задать вывод.
#24
Aynes @ 25.10.09 13:31
[пожаловаться ]
джобана пацаны, сори, ошибся мальца
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.
вот так должно быть
#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.
у моего препода по програмиирования в инститте это бы прокатило
Ответить
');
//-->