Question

от программы записанной на алгоритмическом языке, перейдите к записи программы Паскаль. Определите,что будет напечатано в результате работы программы, если были введены следующие числа: 1; 5; -10; 3; -8; 6; 4; 0. Алгоритм. язык алг. цел s,x нач s:=0 нц ввод х s:=s+x кц при х=0; Вывод s кон

Answer 1

var
s,x:integer;
begin
s:=0;
repeat
Read(x);
s:=s+x;
until x=0;

Writeln(s);

end.

 

Будет выведено 1