Marvarick

22.10.2022 08:41 •  Информатика

Составьте блок схему: 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.