Найти с использованием итерационного цикла сумму всех чисел m в диапазоне

@Toshido · Регистрация: 07.05.2013

Author24 — интернет-сервис помощи студентам

найти с использованием итерационного цикла сумму всех чисел m в диапазоне от 1 до заданного номера n, для которых выражение (m^3-2m+1) кратно 10

@Puporev · 07.06.2013, 11:54

Pascal

uses crt;
var m,n,s:longint;
begin
clrscr;
write('n=');
readln(n);
s:=0;
for m:=1 to n do
if (m*m*m-2*m+1) mod 10=0 then
 begin
  writeln(m);
  s:=s+m
 end;
if s=0 then write('Таких чисел нет')
else write('Сумма=',s);
readln
end.

@Toshido 0 / 0 / 0 Регистрация: 07.05.2013 Сообщений: 5
		1
	Найти с использованием итерационного цикла сумму всех чисел m в диапазоне 07.06.2013, 11:23. Показов 1019. Ответов 1 Метки нет (Все метки) найти с использованием итерационного цикла сумму всех чисел m в диапазоне от 1 до заданного номера n, для которых выражение (m^3-2m+1) кратно 10 0

	07.06.2013, 11:54

Найти с использованием итерационного цикла сумму всех чисел m в диапазоне

Решение