Question

Составьте собственную программу с использованием цикла – ПОКА.

Answer 1

цикл типа «ПОКА»

CLS

Очистка экрана от предыдущих значений

REM Сумма

Название программы

INPUT «Введите x»; x

Ввод исходных данных

IF x=4 THEN GOTO 1 ELSE GOTO 2

Проверка знаменателя на 0, если знаменатель равен нулю, то осуществляется переход к завершению программы, если не равен нулю– то к строке начала цикла

2: S=0: k=4

Начальное значение суммы и параметра цикла

WHILE k

Начало цикла «ПОКА»

S=S+x^2*(k+1)/(x-4)

Вычисление промежуточной суммы

k=k+1

Изменение параметра цикла с указанием шага параметра

WEND

Завершение цикла «ПОКА»

z=31*x^2+5*S

Вычисление итоговой суммы

PRINT “Сумма z=”; z

Вывод искомой суммы

1:END

Завершение программы

Answer 2

это уже готовые ответ?

Answer 3

Ответ:

Программа для расчёта суммы всех чётных чисел от 1 до 100:

var i,s: integer; 

begin 

s:=0; i:=2; 

while i<=100 do begin 

s:=s+i; 

i:=i+2; 

end;