Составьте блок схему:program qwer;// Найти сумму вcех чисел до n var i,n,s:integer; begin...

Question

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

Answer 1

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

---

Comments

Спасибо,братка