var
a, b: real;
n: integer;
function arif_mem(a, b: real; n: integer): real;
begin
if n = 1 then arif_mem := a;
if n > 1 then arif_mem := arif_mem(a, b, n - 1) + b;
end;
function arif_sum(a, b: real; n: integer): real;
begin
if n = 1 then arif_sum := a;
if n > 1 then arif_sum := arif_sum(a, b, n - 1) + arif_mem(a, b, n);
end;
begin
write('введите первый член прогрессии:');
readln(a);
write('введите разность прогрессии:');
readln(b);
write('введите номер члена прогрессии:');
readln(n);
writeln(n, '-й член прогрессии равен :', arif_mem(a, b, n):8:2);
writeln('сумма ', n, ' членов прогрессии равна :', arif_sum(a, b, n):8:2);
end.
Program number;
var c, d,i:integer;
begin
writeln('Введите число');
readln(d);
writeln('Введите сколько раз вывести число');
readln(c);
for i:=1 to c do
write(d,' ');
end.
1.
Можно ввести шаг
и начальное значение Х
Лист защищен без
пароля.
2.
<span>Запустить
проводник, нажав F3 ввести в поле поиска
*.doc
или
*.docx</span><span> </span>
Ответ:
Код дан в приложении.
Объяснение:
Мы просто пробегаемся до корня числа и пытаемся найти такой делитель. Если мы уже превысили корень, но так и не нашли ответ, значит, число простое, и мы выводим сам x.
Асимптотика решения: