Подсчитать сумму 10 произвольно введенных чисел
Подсчитать сумму 10 произвольно введенных чисел
Гость
Ответ(ы) на вопрос:
Гостьvar i, x, s: integer;begin s := 0; for i := 0 to 9 do begin read(x); s := s + x; end; writeln('summa: ', s);end.
Не нашли ответ?
Похожие вопросы