PROGRAM summa; VAR A,S:REAL; BEGIN S:=0; A:=0.2; WHILE A меньше =2 DO BEGIN S:=S+A; A:=A+0.1; END; WRITELN(‘Сумма=’, S:15:2); END. составить блок схему
PROGRAM summa;
VAR A,S:REAL;
BEGIN
S:=0;
A:=0.2;
WHILE A<=2 DO
BEGIN
S:=S+A;
A:=A+0.1;
END;
WRITELN(‘Сумма=’, S:15:2);
END.
составить блок схему
Гость
Ответ(ы) на вопрос:
Не нашли ответ?
Похожие вопросы