Найти сумму чисел кратных 6 и оканчивающихся на 4 из последующих натуральных чисел ( к< = 1000; a< 3000)

123

200

Посмотреть ответы 2

Ответы на вопрос:

2shIk

Информатика

4,5(38 оценок)

Var i,a: integer; s: real; begin for i: =1000 to 3000-1 do if (i mod 6=0)and(i mod 10=4)then begin write(i,' '); {это чтобы посмотреть на числа, эту строку можно убрать} s: =s+i; end; writeln; writeln('s= ',s); end.

markvT

Информатика

4,8(21 оценок)

Если ты делаешь работу над ошибками,то ты переписываешь предложение или слово в котором ты сделал ошибку.потом проверяешь его и подчёркиваешь букву в которой ты сделал ошибку двумя линиями т.е удевилась ошибка е,пишешь правильно это слово удивилась - дива подчёркиваешь букву "и" и "и".