ANTICHAT - Показать сообщение отдельно - Студентам с лабораторными сюда

Цитата:

Сообщение от Catsy

дано число n, ну то есть его вводят, потом дано некоторое число, ск которого начинается проверка, таким образом получаем некоторую последовательно чисел

Если я не забыл паскаль, то код должен быть примерно такой:

Код:

var
	beg, end, k : double ;
	i : integer ;
begin
	readln(beg, end);

	for i=beg to (beg+end) do
	begin
		k = sqrt(i);
		if i / k = k then
			writeln(i); 
	end;
end;