Ответы и объяснения

2013-12-01T10:53:43+00:00
4)
program qwe;
var n:string;
begin
readln(n); writeln(n,n);
end.
На меня тут накричали, поэтому выкладываю еще решение, если нужно использовать переменную, записанную дважды, в программе:
program qwe;
var n,err:integer; tmp:string;
begin
readln(n);
str(n,tmp);
val(tmp+tmp,n,err);
writeln(n);
end.
1) 
program qwe;
var a,b:real;
begin
readln(a,b);
if abs(a)end.(b)>
Ага, лучше - зачем тебе массив, который не используется? Память любишь лишнюю тратить? Ай какое плохое качество программиста.
ой это я из другой задачи взял)забыл удалить....
и плюс какая тут память?подумаешь массив из 15 элементов)))вот если бы бы из 30000 было бы хуже
Ну знаешь ли, сейчас ты забыл убрать массив из 15ти элементов, а в будущем будешь забывать убирать массив из 10^30 элементов...
ну ок...такого больше не повторится(никогда не забывал а теперь вот...загнобишь еще...)
2013-12-01T10:58:46+00:00
Вот четвертая задача...