<span>все очень легко;)
внутри проверка (i mod 3 =0) and (i mod 10 = 2) и суммируй</span>
Ну алгоритм: просто суммируешь поочерёдно.(можно кубиками нарисовать, но это мне делать не удобно, тем более не сложно)
Вот прога на паскале:
program sym
var p:array[1..12] of integer;
s,i:integer;
Begin
s:=0;
For i:=1 to 12 do
p[i]:=i*i; //если нет уже готового массива
For i:=1 to 12 do
s:=s+p[i];
write(s)
end.
Ну тут кстати массив излишен, если надо просто найти сумму:
program sym1
var s,i:integer;
Begin
s:=0;
For i:=1 to 12 do
s:=s+i*i;
write(s)
end.
Я у себя не проверял, но должно работать)
Проверка:
250/8=31, остаток 2
31/8=3, остаток 7
Выписываем результат: 3 7 2 или 372(8)
var
i: integer;
begin
for i:= 35 to 87 do
begin
if i mod 7 = 1 then writeln(i, ' - остаток 1');
if i mod 7 = 2 then writeln(i, ' - остаток 2');
if i mod 7 = 5 then writeln(i, ' - остаток 5');
end;
end.
Тут все достаточно просто.
Вычитать 4 из 2 смысла нет: получим -2 и что с ним дальше делать?
Возведя -2 в квадрат, получим 4, но зачем 4 получать за две команды, когда можно сразу возвести исходную двойку в квадрат? А дальнейшее вычитание даст -6, квадрат -6 это 36, что никак не напоминает 64.
Поэтому первая команда - это "возведи в квадрат" и мы получим 4.
Из 4 вычитать 4 смыла никакого: получим ноль и дальше что? В квадрат возводить его смысла нет, вычитать еще 4 - будет -4 - и зачем оно нам, когда у нас 4 и так есть? Так что остается опять только "возведи в квадрат". Получаем 16 и это была вторая команда.
Вот 16 в квадрат возводить уж точно смысла нет: зачем нам 256, когда идем к 64? Так что теперь - только "вычти 4". Получим 12.
С 12 такое же рассуждение, 144 - это много. Опять "вычти 4" и получили 8.
Отлично, последняя команда "возведи в квадрат" и мы получили 64!
Ответ: 11221