ДАЮ 20 БАЛЛОВ Надо составить прогламму, чтобы она складывала все числа, что ты вбив?
ДАЮ 20 БАЛЛОВ Надо составить прогламму, чтобы она складывала все числа, что ты вбив??ешь на клавиатуре, кроме 0. Если набьёшь 0 - чтоб она перестала складввать
Гость
Ответ(ы) на вопрос:
Гость Только что решал такую задачу:
//Pascal
var a,s:integer;
begin
s:=0;
repeat
readln(a);
s:=s+a;
until a=0;
writeln(s);
end.
Не нашли ответ?
Похожие вопросы