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

Составить программу «календарь xx столетия» , которая определяет день недели любого дня xx-го столетия. по введенному значению 1, 2, 3 вычисляет 1.номер дня недели по формуле, где d- день, м-месяц, g-год: •s=[(12-m)/10] •k=[(g-1900-s)*365,25]+[(m+12*s-2)*30,59]+d+29 •n=k-7[k/7] (n-вычисляется от 0-воскресенье до 6-суббота, []-целая часть) 2.день недели по его номеру 3.выход

👇
Ответ:
зарина298
зарина298
08.01.2023
// PascalABC.NET 3.0, сборка 1128
begin
  var D:=ReadInteger('Номер дня (1-31)');
  var M:=ReadInteger('Номер месяца (1-12)');
  var G:=ReadInteger('Номер года (1900-1999)');
  var S:=(12-M) div 10;
  var K:=Trunc(Int((G-1900-S)*365.25)+Int((M+12*S-2)*30.59)+D+29);
  var N:=K mod 7;
  case N of
  0:Writeln('Воскресенье');
  1:Writeln('Понедельник');
  2:Writeln('Вторник');
  3:Writeln('Среда');
  4:Writeln('Четверг');
  5:Writeln('Пятница');
  6:Writeln('Суббота')
  end
end.
4,5(2 оценок)
Открыть все ответы
Ответ:

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
08.01.2023

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
Открыть лучший ответ