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)
<span>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)
<span>End Sub</span>
2.
Sub z2()
Dim k As Integer
Dim p As Double
k = InputBox("Введите k:")
</span>p = 1
For i = 1 To k
p = p * (-1 + 4 * (i - 1))
Next i
MsgBox ("Произведение: " & p)
End Sub
#include<iostream>#include<stdlib.h>using namespace std;int main(){ int n,i,j=0,k; cin>>n; int a[n]; for(i=0;i<n;i++) { cin>>a[i]; } int X; cin>>X; int W[n]; for(i=0;i<n;i++) { if(a[i]==X) { W[j]=i; j++; } } for(i=0;i<j;i++) cout<<W[i]<<" ";}
Получается что нет . По кругу расписываем все 9 планет Линиями отмечаем маршруты. Получаем связь Земли с Меркурием Плутоном и Венерой ВсЁ других связей нет
3.) Путь ADEC самый короткий. Его длина равна 5.
4.) Путь Васильки - Антоновка - Ежевичная - Сельская - Дружба самый короткий. Его длина равна 6.
5.) 3
//Dev-C++ 4.9.9.2
#include <iostream>
using namespace std;
int main(){
int n,k=0;
for(int i=0;i<10;i++){
cin>>n;
if((n%3==0)&&(n%4!=0))k++;}
cout<<k;
cin.get();
cin.get();
return 0;
}
Пример ввода:
2
5
34
4
16
3
8
0
23
67
Пример вывода:
1