Составить программу вычисления суммы квадратов первых N членов натурального ряда, каждое из которых при делении на M дает в остатке F. (Паскаль)

Question

Информатика

Афинодор

18 июля, 11:29

Составить программу вычисления суммы квадратов первых N членов натурального ряда, каждое из которых при делении на M дает в остатке F. (Паскаль)

+5

Ответы (1)

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

Масята · Answer 1

Var x, n, m, f, s: integer;

begin

write ('Введите N: ') ; readln (n) ;

write ('Введите M: ') ; readln (m) ;

write ('Введите F: ') ; readln (f) ;

for x : = 1 to n do

if (x mod m = f) then s : = s + sqr (x) ;

writeln ('Сумма: ', s) ;

end.