М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Mozgovoi1
Mozgovoi1
09.01.2021 04:15 •  Информатика

Найти сумму чисел, кратных 3 от 1 до 100. программа паскаль abc.

👇
Ответ:
SkeCreeper
SkeCreeper
09.01.2021
Var
  n,s:integer;
begin
  n:=3; s:=0;
  while n<=100 do begin
    s:=s+n;
    n:=n+3
    end;
  Writeln('S=',s)
end.

Результат
S=1683

Первое число, кратное 3 - это само число 3. А дальше просто по 3 прибавляем...
4,4(86 оценок)
Ответ:
yancenkostya
yancenkostya
09.01.2021
Begin
sum=0;
for i:=1 to 100 do
begin
if i mod 3=0 then
sum:=sum+i;
end;
end.
4,4(25 оценок)
Открыть все ответы
Ответ:

using System;

using static System.Console;

namespace ConsoleApp7

{

   class Program

   {

       static bool isprost(int n)

       {

           bool t = true;

           for (int i = 2; i <= n / 2; i++)

               if (n % i == 0)

                   return !t;

           return t;

       }

       static void Main(string[] args)

       {

           Write("Введите кол-во чисел n=");

           int x, n = int.Parse(ReadLine());

           Write("случайные простые числа по данной формуле из [0;28]: ");

           Random r=new Random();

           for (int i=1;i<=n;)

           {

               x = r.Next(0, 28);

               if (isprost(x))

               {

                   Write((x*x*2+29).ToString() + " ");

                   i++;

               }

           }

           ReadKey();

       }

   }

}

4,7(57 оценок)
Ответ:
kloodinvulf3451
kloodinvulf3451
09.01.2021

using System;

using static System.Console;

namespace ConsoleApp7

{

   class Program

   {

       static bool isprost(int n)

       {

           bool t = true;

           for (int i = 2; i <= n / 2; i++)

               if (n % i == 0)

                   return !t;

           return t;

       }

       static void Main(string[] args)

       {

           Write("Введите кол-во чисел n=");

           int x, n = int.Parse(ReadLine());

           Write("случайные простые числа по данной формуле из [0;28]: ");

           Random r=new Random();

           for (int i=1;i<=n;)

           {

               x = r.Next(0, 28);

               if (isprost(x))

               {

                   Write((x*x*2+29).ToString() + " ");

                   i++;

               }

           }

           ReadKey();

       }

   }

}

4,8(78 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ