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

Ячейки электронной таблицы заполнили следующим образом:
1. Ячейки диапазона B1:CW1 последовательно заполнили
числами от 1 до 100.
2. Ячейки диапазона A2:A101 последовательно заполнили
числами от 1 до 100.
3. В ячейку B2 поместили формулу =ОСТАТ((B$1+1)*$A2;10) и
затем скопировали ячейку B2 во все ячейки диапазона
B2:CW101.
Сколько получилось ячеек со значением 0 в диапазоне B2:CW101?
В ответе укажите целое число.
Примечание. Функция ОСТАТ(A;B) вычисляет остаток от
целочисленного деления A на B.

👇
Открыть все ответы
Ответ:
badboydenis
badboydenis
13.03.2023

using System;

namespace ConsoleApp4

{

   class Program

   {

       static void Main()

       {

           int attempts = 1;

           Random r = new Random();

           int x = r.Next(11);

           Console.WriteLine("Ok. I made a guess. Now you have 3 attempts.");

           for (int i=0; i < 3; ++i)

           {

               Console.WriteLine($"Attepmt #{attempts}");

               if (int.Parse(Console.ReadLine()) == x)

               {

                   Console.WriteLine($"Congrutialations! You got it!\nIt really was number: {x}\nAttempts passed: {attempts}\nTry again? y/n");

                   if (Console.ReadLine() == "y")

                   {

                       Console.Clear();

                       Main();

                       return;

                   }

                   return;

               }

               Console.WriteLine("Nope.");

               attempts++;

           }

           Console.WriteLine($"You lose.\nIt was: {x}\nTry again? y/n", x);

           if (Console.ReadLine() == "y")

           {

               Console.Clear();

               Main();

               return;

           }

       }

   }

}

4,8(83 оценок)
Ответ:
eDin7
eDin7
13.03.2023
Function IsPrime(m: integer): boolean;
var
  i: integer;
  p: boolean;
begin
  p := true;
  for i := 2 to m - 1 do
    if (m mod i) = 0 then p := false;
  IsPrime := p
end;

var
  n, i, j: integer;
  flag: boolean;

begin
  repeat
    Write('Введите натуральное число, большее 2 :');
    Readln(n);
    flag := (n < 2) or (n mod 2 = 1);
    if flag then
      Writeln('Число введено с нарушением, повторите ввод');
  until not flag;
  Writeln('Варианты представления числа в виде суммы двух простых:');
  for i := 1 to n do
    for j := 1 to (n div 2) do
      if (IsPrime(i) and IsPrime(j)) and (i + j = n) then writeln(i, '+', j);
end.

Тестовое решение:

Введите натуральное число, большее 2: 110
Варианты представления числа в виде суммы двух простых:
67+43
73+37
79+31
97+13
103+7
107+3
109+1
4,4(86 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ