Посчитайте количество и сумму чисел, находящихся в промежутке [2595, 8401], которые делятся на 2 и не делятся на 13. Запишите в ответе сначала количество, затем сумму.

👇

Увидеть ответ

Ответ:

KendallK

11.03.2023

(см. объяснение)

Объяснение:

Первый :

Воспользовавшись возможностями PascalABC.NET, напишем программу:

begin

var a: array of integer := seqGen(5807,x->x+2595).Where(x->(x mod 2 = 0) and (x mod 13 <> 0)).ToArray();

a.Count.Println; a.Sum.Println;

end.

Второй :

Чистый Pascal тоже позволяет решить эту задачу, только вот код сильно длиннее:

var i,k,sum: integer;

begin

k:= 0;

sum:= 0;

for i:= 2595 to 8401 do

if((i mod 2 = 0) and (i mod 13 <> 0)) then

begin

k:= k+1;

sum:= sum+i;

end;

writeln(k);

writeln(sum);

end.

В обоих случаях получаем два числа: 2679 и 14728918.

Задание выполнено!

4,7(67 оценок)

Открыть все ответы

Ответ:

frhjkvg11

11.03.2023

Базовые логические выражения: (and = +)
a) not (True) = False
b) not (False) = True
------------------------------------
c) True + True = True
d) True + False = False
e) False + True= False
f) False + False = False
--------------------------------
g) True or True = True
h) True or False = True
i) False or True = True
j) False or False = False
--------------------------------------------
В условии не сказано, кем являются A, B, C
по этому озвучим все 8 вариантов:

1) A = True; B = True; C = True

2) A = True; B = False; C = True

3) A = False; B = True; C = True

4) A = False; B = False; C = True

5) A = True; B = True; C = False

6) A = True; B = False; C = False

7) A = False; B = True; C = False

8) A = False; B = False; C = False

--------------------------------------------
и рассмотрим все 8 вариантов: (T = True; F = False)

1) $A+not(B\ and\ C)+not(not(A)+B+not(C))=$
$=T+not(T\ and\ T)+not(not(T)+T+not(T))=$
=T+not(T)+not(F+T+F)=T+F+not(F)=T+F+T=F

2) $A+not(B\ and\ C)+not(not(A)+B+not(C))=$
$=T+not(F\ and\ T)+not(not(T)+F+not(T))=$
=T+not(F)+not(F+F+F)=T+T+not(F)=T+T+T=T

3) $A+not(B\ and\ C)+not(not(A)+B+not(C))=$
$=F+not(T\ and\ T)+not(not(F)+T+not(T))=$
=F+not(T)+not(T+T+F)=F+F+not(F)=F+F+T=F

4) $A+not(B\ and\ C)+not(not(A)+B+not(C))=$
$=F+not(F\ and\ T)+not(not(F)+F+not(T))=$
=F+not(F)+not(T+F+F)=F+T+not(F)=F+T+T=F

5) $A+not(B\ and\ C)+not(not(A)+B+not(C))=$
$=T+not(T\ and\ F)+not(not(T)+T+not(F))=$
=T+not(F)+not(F+T+T)=T+T+not(F)=T+T+T=T

6) $A+not(B\ and\ C)+not(not(A)+B+not(C))=$
$=T+not(F\ and\ F)+not(not(T)+F+not(F))=$
=T+not(F)+not(F+F+T)=T+T+not(F)=T+T+T=T

7) $A+not(B\ and\ C)+not(not(A)+B+not(C))=$
$=F+not(T\ and\ F)+not(not(F)+T+not(F))=$
=F+not(F)+not(T+T+T)=F+T+not(T)=F+T+F=F

8) $A+not(B\ and\ C)+not(not(A)+B+not(C))=$
$=F+not(F\ and\ F)+not(not(F)+F+not(F))=$
=F+not(F)+not(T+F+T)=F+T+not(F)=F+T+T=F

4,5(47 оценок)

Ответ:

sooooooos1

11.03.2023

Using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace ConsoleApplication4
{
    class Program
    {
        static void Main(string[] args)
        {
            bool result = false;
            Console.WriteLine("Введи строку");
            string str = Console.ReadLine();
            for (int i = 0; i < str.Length - 1; i++)
            {
                if (str.Substring(i, 1) == str.Substring(i + 1, 1))
                {
                    result = true;
                    break;
                }
            }

            if (result == true)
                Console.WriteLine("Да, встречаются");
            else
                Console.WriteLine("Нет, не встречаются");

            Console.ReadKey();
        }
    }
}

4,4(94 оценок)

Это интересно:

Кулинария-и-гостеприимство

15.08.2021

Как приготовить змею: рецепты и рекомендации...

Образование-и-коммуникации

07.05.2023

Прощайте спам! Как избавиться от ненужной почты в ящике...

Образование-и-коммуникации

06.10.2021

Как рисовать вертолет: советы от профессионалов...

Здоровье