Dark, я не люблю пользоваться заранее известными алгоритмами, всегда пытаюсь написать с нуля..)
Вид для печати
Dark, я не люблю пользоваться заранее известными алгоритмами, всегда пытаюсь написать с нуля..)
Задание очень простое было.
Мой вариант
А так как задание было простым, будет сегодня второе задание. Этим заданием препод по программированию ввёл в ступор 20 человек, в т.ч. и меня.PHP код:
def replace (s1,s2,s3)
s1.gsub(s2,s3)
end
p replace("RMXP/VX for game developers. Many opportunities in the new version.","XP/VX","2k3")
Спойлер Задание 2:
Как мы выведем масив, не используя масив. Может ты имел в виду не используя другой масив?Цитата:
не используя для вывода массив
мы вводим ряд чисел, мы должы вывести введённые числа в обратном порядке не используя массив вообще.
На паскале правильное решение заняло у меня 11 строк и 1 переменную
Как!?
А можно использовать строки?
var
x: longint; s: string;
begin
read(x);
while x <> 0 do
begin
s := IntToStr(x) + ' ' + s;
read(x);
end;
write(0,' ',s);
end.
Хотя этот вариант не подходит, так как тут используються две переменные и строка --- тоже масив чаров.
Можно использовать всё что угодно, хоть в файл пиши значения, хоть в память динамически. Можно использовать динамические переменные, это те что создаются в процессе работы, но я с ними не работал не разу. Но есть 2 условия:
никаких массивов, в т.ч. хешей и динамических массивов
не более 1 переменной.
У нас эту задачу решали 20 человек и ни кто не решил. Правда на экзамене препод показал как надо было решать.
Файлы не подходят, минимум две переменные.
Строки не подходят --- это и есть масивы и тоже минимум две переменные.
Можно сделать рекурсией.
если я верно понял, то переменная одна, а строк можно сколько душе угодно?
Код:Var a:Integer;
s:String;
Begin
a:=1;
While a<>0 do
begin
Read(a);
s:=s+IntToStr(a);
end;
Writeln(s);
For a:=Length(s) downto 1 do
begin
Write(s[a]);
end;
End.