Question

Составьте блок схему:program qwer;// Найти сумму вcех чисел до n
var i,n,s:integer;
begin
Writeln ('Введите число n' );
readln (n);
i:=0;
s:=0;
while i<=n do begin
s:=s+i;
i:=i+1;
end;
writeln ('Сумма чисел от 0 до ',n,' равна ',s);
end.

Answer 1

см скриншот
===============================