Составьте блок-схему по готовой программе. PROGREM 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.
Составьте блок-схему по готовой программе.
PROGREM 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.
Гость
Ответ(ы) на вопрос:
Не нашли ответ?
Похожие вопросы