с клавиатуры вводятся числа до первого отрицатеьного. Нарисуйте блок схему и напишите программу для нахождения суммы этих чисел. Pascal
Домашняя работа по теме (Циклы)
Помогите пожалуйста, дам самый большой балл
Ответы
Ответ дал:
0
var d, sum:integer;
begin
while d>-1 do
begin
sum:=sum+d;
readln(d);
end;
writeln(sum);
end.
begin
while d>-1 do
begin
sum:=sum+d;
readln(d);
end;
writeln(sum);
end.
Приложения:
![](https://st.uroker.com/files/ddf/ddf00e1fedbb7e1890d3df4685f0bc76.png)
Вас заинтересует
1 год назад
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад
8 лет назад