Вычислить сумму квадратов цифр.

В Паскале

Question

Информатика

Машура

2 января, 16:22

Вычислить сумму квадратов цифр.

В Паскале

+2

Ответы (1)

Знаете ответ на вопрос?

Варварий · Answer 1

Var I, S: integer;

Begin

S:=0;

for I:=0 to 9 do {цикл, перебираем цифры от 0 до 9 и присваиваем их переменной I }

S:=S+sqr (I) ; {sqr (I) - квадрат I, Вычисляем квадрат и добавляем его в } общую сумму S}

writeln ('сумма квадратов цифр = ', S) ; {выводим сумму}

end.

Вычислить сумму квадратов цифр.В Паскале

Вычислить сумму квадратов цифр.

В Паскале