next1142
Новичок
|
     
пожалуйсто помогите мазги уже не варят =))
3. Написать рекурсивную процедуру для вывода на экран цифр натурального числа в обратном порядке.
(Сообщение отредактировал next1142 28 дек. 2009 16:36)
(Сообщение отредактировал next1142 28 дек. 2009 16:37)
|
Всего сообщений: 36 | Присоединился: декабрь 2009 | Отправлено: 28 дек. 2009 9:40 | IP
|
|
next1142
Новичок
|
люди откликнетесь плиз
|
Всего сообщений: 36 | Присоединился: декабрь 2009 | Отправлено: 28 дек. 2009 13:25 | IP
|
|
Korvet
Новичок
|
 
Program next1142_1;
var
a:array [1..30] of 0..5;
i:byte;
begin
randomize;
for i:=1 to 30 do
begin
a:=random(6);
if odd(a[ i ]) then
Writeln(a[ i ]);
end;
readln;
end.
|
Всего сообщений: 40 | Присоединился: ноябрь 2009 | Отправлено: 28 дек. 2009 16:32 | IP
|
|
next1142
Новичок
|
спосибо Korvet большое 
|
Всего сообщений: 36 | Присоединился: декабрь 2009 | Отправлено: 28 дек. 2009 16:38 | IP
|
|
Korvet
Новичок
|
Program next1142_2;
var
a:array [1..10] of String;
i:byte;
s:String;
begin
Writeln('Vvedite stroku iz 10 slov:');
Readln(s);
s:=s+' ';
for i:=1 to 10 do
begin
a[ i ]:=copy(s,1,pos(' ',s)-1);
delete(s,1,pos(' ',s))
end;
for i:=1 to 10 do
Writeln(a[ i ]);
readln;
end.
Между словами должен быть только один пробел
|
Всего сообщений: 40 | Присоединился: ноябрь 2009 | Отправлено: 28 дек. 2009 16:44 | IP
|
|
next1142
Новичок
|
Korvet спосибо большое а с 3 можеш помоч очень прошу
|
Всего сообщений: 36 | Присоединился: декабрь 2009 | Отправлено: 28 дек. 2009 16:53 | IP
|
|
Korvet
Новичок
|
Program next1142_3;
var
n:Integer;
function vyvod(m:Integer):byte;
begin
if m<10 then
begin
vyvod:=m;
writeln(m);
end
else
begin
Writeln(m mod 10);
vyvod:=vyvod(m div 10);
end;
end;
begin
Write('Vvedite naturalnoe 4islo:');
Readln(n);
vyvod(n);
readln;
end.
|
Всего сообщений: 40 | Присоединился: ноябрь 2009 | Отправлено: 28 дек. 2009 17:07 | IP
|
|
next1142
Новичок
|
спосибо ты меня очень выручил Korvet
|
Всего сообщений: 36 | Присоединился: декабрь 2009 | Отправлено: 28 дек. 2009 17:09 | IP
|
|
eraser
Новичок
|
А мне помочь ? )
|
Всего сообщений: 2 | Присоединился: декабрь 2009 | Отправлено: 28 дек. 2009 18:04 | IP
|
|
sambuka
Новичок
|
Помогите,пожалуйста решить задачу...очень нужно,срочно.....
задача-можно ли в квадратном помещении площадью S поместить круглую сцену радиусом R так,чтобы проход от стены до сцены был не менее K.
|
Всего сообщений: 16 | Присоединился: декабрь 2009 | Отправлено: 28 дек. 2009 19:57 | IP
|
|
Форум
Решение задач на Pascal. Форум 3.
