Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Задачи с циклами!нужна помощь

Автор: Mimosa 13.05.2007 15:19

Привет всем!мне нужна ваша помощь.никак не получается решить задачу.кто может-пожалйста помогите!
Задача
Найти сумму целых положительных чисел больше 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

Спасибо!!! yes2.gif