Объясните по подробнее как решать такие 1)для какого из указанных значений числа x истинно высказывание ((x < 5)→(x < 3)) ù ((x < 2)→(x < 1)) 1) 1 2) 2 3) 3 4) 4 2)для какого имени истинно высказывание: ¬ (первая буква имени
гласная → четвертая буква имени согласная)? 1) елена 2) вадим 3) антон 4) федор

👇

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

Ответ:

Lkjgcvb

26.05.2023

Ты в первом задание уверен со знаком между скобками, именноо сложение?

Просто тогда подходят все! Если знак умножение(вниз), тогда ответ 2.

Во втором задании ответ 3 АНТОН. Потому что только у него 1 буква главная и 4 гласная.

4,8(100 оценок)

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

Ответ:

ok683000

26.05.2023

// PascalABC.NET 3.0, сборка 1088
const
nn=100;

function sov(n:integer):boolean;
var
i,s:integer;
begin
s:=0;
for i:=1 to n div 2 do
    if n mod i = 0 then s:=s+i;
sov:=(s=n)
end;

var
a:array[1..nn] of integer;
i,n,k:integer;
begin
Write('Введите количество элементов в массиве (1-100): ');
Read(n);
Randomize;
Writeln('*** Сформированный массив ***');
for i:=1 to n do begin
    a[i]:=Random(1000)+1;
    Write(a[i],' ')
    end;
Writeln;
Writeln('*** Найденные совершенные числа ***');
k:=0;
for i:=1 to n do
    if sov(a[i]) then begin Write(a[i],' '); Inc(k) end;
if k=0 then Writeln('... к сожалению, не нашли ни одного')
end.

Тестовое решение:
Введите количество элементов в массиве (1-100): 100
*** Сформированный массив ***
890 171 531 345 764 347 433 602 368 51 490 271 310 249 96 365 751 521 951 501 646 467 24 698 23 580 902 950 154 607 263 333 625 92 454 302 661 323 806 761 989 645 606 739 87 151 231 804 990 496 422 805 982 664 178 424 148 833 322 184 446 484 449 761 789 158 647 219 796 794 704 429 715 190 513 1 861 285 612 872 349 99 960 659 185 458 352 961 914 31 155 828 1 622 316 505 197 845 951 930
*** Найденные совершенные числа ***
496

VBA Excel 2003
Function Sov(n As Integer) As Boolean
    Dim i As Integer, s As Integer
    s = 0
    For i = 1 To n / 2
        If n Mod i = 0 Then s = s + i
    Next i
    Sov = (s = n)
End Function

Sub main()
    Dim n As Integer, i As Integer, k As Integer
    Cells.Clear
    n = Val(InputBox("Введите количество элементов в массиве: "))
    ReDim a(1 To n) As Integer
    Randomize Timer
    Cells(1, 1).Value = "*** Сформированный массив ***"
    For i = 1 To n
        a(i) = Int(1000 * Rnd) + 1
        Cells(i + 1, 1).Value = a(i)
    Next i
    k = 0
    Cells(1, 5).Value = "*** Найденные совершенные числа ***"
    For i = 1 To n
        If Sov(a(i)) Then
            Cells(k + 2, 5) = a(i)
            k = k + 1
        End If
    Next i
    If k = 0 Then
        Cells(1, 5).Value = ""
        MsgBox "Совершенных чисел не найдено"
    End If
End Sub

4,6(57 оценок)

Ответ:

Fastik26

26.05.2023

Я думаю, что это значит вот что: Если символом окажется числа, например 1566, то их можно прочитать не как один пять шесть шесть, а тысяча пятьсот шестьдесят шесть. Так же и слова. Мы же ведь когда говорим "Привет", мы же не говорим отдельно каждую букву("Пэ эр и в е тэ")? Значит, что если символы, стоящие рядом, можно прочитать и понять как единое целое. Я то уже поняла, что там написано, но никак не могу яснее объяснить:( . Ну, вот, к примеру. Мы же когда читаем слова, то несколько букв, соединенных вместе, мы читаем как слово( к примеру "да", мы его не читаем "дэ а", а читаем "да").

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

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

Питомцы-и-животные

23.06.2022

Как понять, что лошади пора подпилить зубы...

Здоровье

15.06.2022

Как избежать сухости глаз от компьютера...

Компьютеры-и-электроника

23.06.2020

Как скачать видео с YouTube в мобильном браузере Opera Mini: подробный гайд...

Мир-работы