Какое наименьшее число цифр нужно выписать на доску, чтобы выполнялось условие : какую бы цифру ни задумать, среди выписанных на доску цифр найдутся д...

Program exapmle2;
var x,y,k:integer;
begin
writeln('Эта программа определяет, число соседств чисел с одинаковыми знаками');
write('Введите число:');
read(x);
y:=x;

write('Введите число:'); //добавить эти 2 строки
read(x);

k:=0;
while x<>0 do // поменять у на х
begin
//if x*y<0 then inc(k); убрать эту строку
if x*y>0 then inc(k);
y:=x;
read(x); // изменить у на х
end;
writeln(' Число соседств ',k);
writeln('нажмите Enter для завершения работы программы');
readln;
end.

площадь квадрата это его сторона в квадрате, то есть s = a*a

так как известна площадь половины квадрата, а это 1/2 всей площади квадрата, то 2450*2=4900 площадь всего квадрата.

значит его сторона будет равна  \sqrt{s} = \sqrt{4900} =70s=4900=70 

70 см это длина одной стороны квадрата, а периметр это сумма всех сторон, то есть 70+70+70+70 или 4*70=280  см такой длины понадобится планка