В ряду лишнее число,найди его и поясни почему: 1,2,3,5,6,7. 3,5,6,7,11.
malinka 1106 [1]
Везде ответ 6
В первом составное
А во втором-чётное
Не ясно на каком именно бейсике это написано, но у меня есть только 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
#include <iostream>
using namespace std;
int main()
{
int n, p, i;
string m;
cout << "Введите n: ", cin >> n, cout << "\n";
for (i=2; (i<=5)&&((n<100)or(n>999));i++) {
cout << "Введите n: ", cin >> n, cout << "\n";
}
if ((n>=100)and(n<=999)){
p = (n/100)*(n/10%10)*(n%10);
cout << p;}
else cout << "Ошибка";
return 0;
}
Пример:
<span>Введите n: 12
Введите n: 7623
Введите n: 456
120</span>
1-десятка
2-тысяча
3-сотая
4-единица
Млекопетающие(сумчатые,грызуны(бобры),хищники(гепарды,медведи(бурый медведь,панды)),ластоногие(тюлени,моржи),парнокопытные(олени,бегемоты,свиньи))