Var i, h, res: integer;
begin
write('H = ');
readln(h);
res:=1;
for i:=1 to h do
res:=res*i;
writeln(h, '! = ', res);
<span>end.</span>
Не ясно на каком именно бейсике это написано, но у меня есть только VBS
Так что форматирование может не совпасть
Код
Sub Zadanie
s = ""
n = 4
l = 2
for i = 1 to n
for j = 1 to n
if j=1 or i=1 or i=n or j=n then
s = s & "0"
else
l = l + 1
s = s & l mod 10
end if
next
s = s & vbNewLine
next
MsgBox (s)
End Sub
Вывод
0000
0340
0560
0000
1)
#include <iostream>
#include <math.h>
using namespace std;
int main() {
int n, sum = 0, k;
cin >> n >> k; //ввести размерность массива и требуемое k
int a[n];
for(int i = 0; i < n; i++) {
cin >> a[i]; //вводим массив
if(a[i]%k == 0) { cout << a[i] << endl; sum+=a[i]; }
}
cout << sum << endl;
}
2)
#include <iostream>
#include <math.h>
using namespace std;
int main() {
int n, sum = 0, k;
cin >> n;
int a[n], b[n], lenB = 0;
for(int i = 0; i < n; i++) {
cin >> a[i]; //вводим массив
if(a[i] == 0) b[lenB++] = i;
}
for(int i = 0; i < lenB; i++) cout << b[i] << ' ';
cout << endl;
}
name_list = [
'Егор', 'Егор', 'Дмитрий', 'Дмитрий',
'Егор', 'Егор', 'Егор', 'Дмитрий',
'Егор', 'Егор', 'Егор', 'Дмитрий',
'Егор', 'Дмитрий', 'Егор', 'Дмитрий'
]
print(name_list.count('Дмитрий'))