<h3>PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var (s, ss, k) := (ReadInteger('s='), 0, 3);
while ss <= s do
begin
ss += k;
k+=2
end;
ss.Println
end.
int a; // Определение переменной a целочисленного типа со значением, зависящим от местонахождения в памяти(мусор)
float b; // Определение переменной b вещественного типа со значением, зависящим от местонахождения в памяти(мусор)
double c = 14.2; // Определение переменной c вещественного типа со значением 14.2(вещественный тип)
char d = 's';// Определение переменной d символьного типа со значением символьного типа
bool k = true; Определение логической переменной k(булева типа/логического типа/etc.) со значением логическим.
Данная информация справедлива для C/C++.
Простое решение. Сначала просто заполняем массив в ручную, потом ищем минимальное значение и максимальное.
Function prime(n:longint):boolean;
var i,j:longint;
p:boolean;
Begin
p:=true;
if (n mod 2)=0 then p=false;
i:=3;j:=round(sqrt(n));
while (i<=j)and(p) do
Begin
if(n mod i)=0 then p=false;
inc(i,2);
end;
prime:=p;
end;