Определите значение a. b:=4​

а=4

b=6

b=8+a*b=8+4*6=8+24=32

a=b/4*a=32/4*4=8*4=32

Элементы массива могут принимать целые значения от 1 до 10000 включительно. Опишите на естественном языке или на одном из языков программирования алгоритм, позволяющий найти и вывести количество элементов массива, восьмеричная запись которого содержит ровно две цифры, причём первая (старшая) цифра меньше второй (младшей). const N = 40; var a: array [1..N] of integer; i, j, k: integer; begin. ... 71) Дан целочисленный массив из 200 элементов, в котором записаны значения последовательных результатов измерений. Элементы массива могут принимать целые значения от 0 до 10 000 включитель

Объяснение:

program nom_4;

var i:integer;

s: real;

begin

s:=0;

for i:=1 to 15 do

s:=1/i;

writeln ('S=', s);

end.

(насколько я понимаю тут имеются в виду четные числа в диапазоне от 1 до 20)

program nom_5;

var n, s:=integer;

begin

s:=0;

for n:=1 to 20 do

if (n mod 2=0) then s:=s+n;

writeln ('S=', s);

end.

(насколько я понимаю тут имеются в виду нечетные числа в диапазоне от 3 до 13)

program nom_6;

var n, s, pr:= integer;

begin

s:=0;

pr:=0;

for n:=3 to 13 do

begin

if (n mod 2<>0) then pr:=n*n;

s:=s+pr;

end;

writeln ('S=', s);

end.

или можно проще

program nom_6;

var n, s:= integer;

begin

s:=0;

for n:=3 to 13 do

s:=sqr(n)+s;

writeln ('S=', s);

end.

program nom_7;

var n, p: integer;

begin

p:=1;

for n:=1 to 8 do

p:=p*n;

writeln ('P=', p);

end.

(я не совсем понимаю что имеется в виду под х, поэтому предположу, что х мы должны ввести самостоятельно)

program nom_8;

var x, s: real;

i: integer;

begin

write ('Введите х');

readln (x);

s:=0;

for i:=2 to 7 do

s:=s+sin(i*x);

writeln ('S=', s);

end.