{программа в паскале} {находит сумму введенных чисел, конец последовательности - 0} var n, x: integer; begin n:=0; repeat readln(x); inc(n,x); until x=0; writeln ('сумма равна ', n); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
