Составьте блок схему: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.
Ответы
Ответ дал:
1
см скриншот
===============================
===============================
Приложения:
![](https://st.uroker.com/files/ccf/ccf8a726e8ff5f8640138a2ec415a17c.png)
Alex141111:
Спасибо,братка
Вас заинтересует
4 месяца назад
1 год назад
1 год назад
2 года назад
2 года назад