Помогите решить информатику (паскаль abc). Составьте программу, которая находит…

Question

38

Помогите решить информатику (паскаль abc). Составьте программу, которая находит сумму квадратов чисел от 1 до 10

категория: другой

в избранное ссылка

Знаете ответ?

technorubby · Accepted Answer

71

technorubby

16 ноября 2023

Program_1; Var s, a: integer; Beginа: =1For a: =1 to 10 do s: =s+sqr a; Writeln ('Сумма квадратов чісел от 1 до 10 равна ', a); end.

комментировать

в избранное ссылка отблагодарить