В цикле происходит переприсваивание элементу массива B[i] значения элемента массива B[j], где i меняется от 1 до 20, а j вычисляется по формуле ЦелаяЧасть ( (i+5)/3 ) + 1.
Эта формула порождает значения 3, 3, 3, 4, 4, 4, ... 8, 8, 8, 9, 9
Будут получены шесть троек значений 3, 4, 5, ... 8 и одна пара значений 9.
При этом i пробежит 10 четных значений 2, 4, 6, ...20 и для i=4 будет получено j=4, т.е. этот элемент не изменит значения.
Следовательно, свои значения изменят <u>9</u> четных элементов.
Var
f,b,a,i:longint; // описание переменных
begin
write('Write b, a: ');
readln(b,a); // Присваивание b, a числа
f:=1; // Присваивание f=1
for i:=1 to b do // Нахождение b! (факториала)
f:=f*i;
writeln('x= ',f*(1/sqr(a)):0:2); // вывод результатов(выполнение форумулы)
readln
end.
Таблицу покажи а то так невыполнить
Я думаю, что подойдет светло серый с оттенками красного... Наверное так
Var k,x:integer;
begin
readln(x);
k:=0;
while x<>0 do begin
if x mod 2 = 0 then
k:=k+1;
readln(x);
end;
write(k);
readln
end.