Найти произведение чисел больше 7 в паскале с помощью while

Переделать задачи для for 1) q:=5; d:=1; while q>0 do begin d:=d+q; dec (q) end; writeln (q,' ', d) ; 2) q:=5; d:=1; while q>0 do begin dec (q) ; d:=d+q end; writeln (q,' ', d) ; 3) q:=5; d:=1; while q>0 do dec (q) ; d:=d+q; writeln (q,' ', d) ;

1) Найти сумму 1/2+1/4+1/6 ... 1/20 на паскале с помощью while и точно такую же задачу с циклом for 2) Возведение степени a в степень n, с помощью while

Установите взаимнооднозначное соотношение: 1) x:=1; A) Тело цикла не выполнится ни разу while x

Помогите Найти и объяснить ошибки п/п Пример Ответ Пояснения 1 for i=1 to n do; 2 for i:=n to 1 do 3 for i=1 to n do step 1 4 while a < 5 do; a:=a+1; b:=b+a; 5 Repeat a < 5 a:=a+1; b:=b+a; until; 6 while c < k or k = 0 do 7 while c < k s:=s+k;;

Помогите решить задачи на цикл с параметром. Решения оформить как в Паскале. 1) задать 5 чисел. найти среднюю сумму положительных чисел, произведение чисел, некратных 12 и количество четных чисел среди заданных 2) В фирме работают 5 сотрудников.