|
|
#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.
у моего препода по програмиирования в инститте это бы прокатило
|
|
|
| Reply | | | |
|
|
|
