Привет всем!мне нужна ваша помощь.никак не получается решить задачу.кто может-пожалйста помогите! Задача Найти сумму целых положительных чисел больше 20,но меньше 100,кратных 3,и заканчивающихся на 2,4,8.
очень признательна
Sto
13.05.2007 15:50
Проверяй
Var i, Znak, Sum : Integer; Begin Sum := 0; For i := 20 To 100 Do Begin Znak := i mod 10; If (Znak = 2) Or (Znak = 4) Or (Znak = 8) Then If ((i mod 3) = 0) Then Sum := Sum + i; End; WriteLn(Sum); ReadLn; End.
Mimosa
13.05.2007 17:17
Спасибо,прошла задача!только почему Znak := i mod 10?
Sto
13.05.2007 18:30
Mod - вычисляет остаток, полученый при выполнении целочисленного деления. Znak := i mod 10; так как все числа, кроме 100, у нас двухзначные то остаток в результате i mod 10 будет вторая цыфра. Например: 10 mod 5 = 0; Потому что 10/5 = 2, нет остатка; 11 mod 5 = 1; Потому что 11/5 = 2.2, а ближайшее целое число которое делится на 5 без остатка, это 10 в результате 11-10=1; 25 mod 10 = 5; Потому что 25/10 = 2.5, а ближайшее целое число которое делится на 10 без остатка, это 20, в результате 25-20=5;
Mimosa
13.05.2007 19:39
Спасибо!!!
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.