Abc paskal вывести на экран через запятую массив из 20 целых чисел, в котором первый элемент равен 25, а каждый последующий больше предыдущего на 2. вычислить сумму элементов с четными индексами.
Var a:array [1..20] of integer; i,k,s:integer; begin k:=25; for i:=1 to 20 do begin a[i]:=k; k:=k+2 end; for i:=2 to 20 do if i mod 2 = 0 then s:=s+a[i]; writeln (a); writeln (s) end.
В общем случае, трассировка - один из отладки программ врукопашную: состояние программы контролируется на определённом отрезке времени её выполнения путём анализа значений переменных. трассировка в том или ином виде при отладке программ сложнее школьного дз практически неизбежна. в простейшем случае, трассировка - вывод значений переменных на экран (например, в окно консоли) , либо расчёт их на бумажке для каждого шага. в более продвинутом варианте используются точки останова, окно наблюдения, выполнение по шагам и, если есть, контекстный интерпретатор выражений. есть также специальная "трассирующая консоль" - интерфейс вывода информации из программы в отладчик, если таковой присутствует. почти любой современный отладчик показывает состояние програмm при её останове, что делает трассировку процессом легко доступным
Алгоритм 1) a x a = a² ⇒ b; b x a = a³ ⇒ результат 2) a x a = a² ⇒ b; b x b = a⁴ ⇒ c; c x c = a⁸ ⇒ c; c x b = a¹⁰ ⇒ результат
Программа на языке PascalABC.Net var a,b,c,y:real; begin Write('Введите число: '); Read(a); b:=a*a; y:=b*a; Writeln('Третья степень числа равна ',y); c:=b*b; c:=c*c; y:=b*c; Writeln('Десятая степень числа равна ',y) end.
Тестовые решения: Введите число: 2 Третья степень числа равна 8 Десятая степень числа равна 1024
Введите число: -13.594 Третья степень числа равна -2512.128188584 Десятая степень числа равна 215512594781.574
i,k,s:integer;
begin
k:=25;
for i:=1 to 20 do
begin
a[i]:=k;
k:=k+2
end;
for i:=2 to 20 do
if i mod 2 = 0 then s:=s+a[i];
writeln (a);
writeln (s)
end.