1. 

   ЯркаЯ New Member

   среди натуральных чисел, меньших некоторого n, вычислить сумму чисел, которые делятся на 3 и не делятся на 5. написаты програму на языкеПаскаль.

    

   ЯркаЯ, 4 янв 2010

   #1
2. 

   kresiva New Member

   uses crt;
   var
   a:array[1..1000] of integer;
   i,n,sum:integer;
   begin
   write('Введите число: ');
   read(n);
   for i:=1 to n-1 do
   if (i mod 3=0) and (i mod 5<>0) then sum:=sum+i;
   write(sum);
   end.

    

   kresiva, 4 янв 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня