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