В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Nezlo8
Nezlo8
17.07.2020 03:13 •  Информатика

Написать программу на языке Паскаль для вычисления наибольшего общего делителя двух целых положительных чисел по готовой блок-схеме


Написать программу на языке Паскаль для вычисления наибольшего общего делителя двух целых положитель

Показать ответ
Ответ:
rudenkovitalik
rudenkovitalik
28.04.2021 23:13
 Иван-дурак          -  конь
 Али-Баба             -   пещера с сокровищами
Мышка-норушка   -  Теремок
Иван-царевич       -  избушка на курьей ножке
Лиса -                  Колобок, Колобок, спой мне песенку! - Колобок
Королевич Елисей   -         Ветер, ветер! Ты могуч, ты гоняешь стаи туч Ты волнуешь сине море,Всюду веешь на просторе. Не боишься никого, Кроме бога одного. Аль откажешь мне в ответе? Не видал ли где на свете Ты царевны молодой?                               -      Ветер  
Королевич Елисей                 Месяц, месяц, мой дружок,Позолоченный рожок! Ты встаешь во тьме глубокой, Круглолицый, светлоокий, И, обычай твой любя, Звезды смотрят на тебя. Аль откажешь мне в ответе? Не видал ли где на свете Ты царевны молодой?                                              -   Месяц
                   
0,0(0 оценок)
Ответ:
aiiiiiidana
aiiiiiidana
20.03.2022 14:49
1. Строка получается слишком длиной, поэтому разбиваем ее на две части
Sub Z1()
Dim n As Integer
Dim i As Integer
Dim s1 As String
Dim s2 As String
For i = 100 To 999
  If i Mod 3 = 0 Then
    n = n + 1
    If Len(s1) < 1024 Then
        s1 = s1 & i & " "
        Else
            s2 = s2 & i & " "
        End If
    End If
Next i
MsgBox (s1)
If Len(s2) > 0 Then MsgBox ("Продолжение: " & s2)
MsgBox ("Их количетво: " & n)
End Sub
1. Вариант дла Excel. Срабатывает на двойном клике мышки. Можешь приписать любому другому событию
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim n As Integer
Dim i As Integer
For i = 100 To 999
  If i Mod 3 = 0 Then
    n = n + 1
    Cells(n, 1) = i
    End If
Next i
MsgBox ("Их количество: " & n)
End Sub

2.
Sub z2()
Dim k As Integer
Dim p As Double
k = InputBox("Введите k:")
p = 1
For i = 1 To k
    p = p * (-1 + 4 * (i - 1))
Next i
MsgBox ("Произведение: " & p)
End Sub
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота