• Вопрос по информатике:

    вычислите сумму квадратов вводимых чисел, Числа вводятся пока не будет нажат 0
    работа на паскале

    • Автор:

      henry65

  • Ответ:

    uses crt;var a, k: Integer;begin while a <> 0 do begin readln(a); if a <> 0 then inc(k, sqr(a)); end; writeln(k);end;

    • Отвечал:

      felicityaalp
    • 0

    Ответов нет, но ты это испарвиш!

Еще 4 ненужных тебе вопроса, но это важно для поиска