Var i,n,s:integer;
begin
read(n);
i:=2;
s:=1; {иначе не зайдешь в цикл вообще, т.к. изначально S=0]
while s<>0 do
begin
s:= n mod i;
if s <> 0 then
i:=i+1;
end;
writeln (i);
<span>end.</span>
Для того чтобы вывести таблицу, нам нужно понять что такое таблица.
таблица это просто строчки с символами, правда же?
так вот, делаем цикл который десять раз будет выводить строчки с символами, можно так сделать как на скриншоте
<em>PascalABC.NET 3.2, сборка 1488 от 21.06.2017</em>
<em>Внимание! Если программа не работает, обновите версию!</em>
function Horner(x:real;a:array of real):real;
begin
Result:=x*a.Last;
for var i:=a.Length-2 downto 1 do
Result:=x*(a[i]+Result);
Result+=a.First
end;
begin
var n:=ReadInteger('Степень полинома:');
var x:=ReadReal('x=');
var a:=ReadArrReal('Коэффициенты, начиная со свободного члена:',n+1);
Writeln('Значение полинома: ',Horner(x,a))
end.
<u>Пример</u>
Степень полинома: 9
x= -4.2
Коэффициенты, начиная со свободного члена: 4 0 0 0 0 0 3 -2 0 3
Значение полинома: -1157435.18966682
Можеь быть круговые если ты ошибся в седьмой