1. Локальная сеть .2. 3 .5. Сервер 6. Wi-fi
#include <iostream>
using namespace std;
/* Язык С++.
* Запрашиваем у пользователя неопределенное количество целых чисел
* пока не введёт значение = 0
* посчитать количество элементов введенных пользователем кратных 5,
* а также вывести номер первого элемента, введенного пользователем значения = 5.
* Ноль не учитывается (если 5 нет, то номер = 0)
* Использовать do, while
*/
int main()
{
int n, c5 = 0, i = 1, i5 = 0;
bool found5 = false;
do {
cout << "Число: ";
cin >> n;
if (n == 0) break;
else if (n % 5 == 0) {
c5++;
if (i5 == 0) {
i5 = i;
}
}
i++;
} while (true);
cout << "Количество чисел, кратных 5: " << c5 << endl;
cout << "Номер первого элемента, кратного 5: " << i5 << endl;
return 0;
}
<h3>PascalABC.NET 3.4.2, сборка 1884 от 24.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadSeqInteger(20).Where(t -> Abs(t) < 10)
.Aggregate(BigInteger(1), (p, q)-> p * q).Println
end.
<h2>Пример</h2><h3>9 9 9 9 9 9 9 9 9 9 9 9 9 -9 -9 -9 -9 9 9 9</h3><h3>12157665459056928801 </h3>
If (x>=-5) and (x<5) then label1.caption
(Принадлежит') else Label1.caption ('Не
принадлежит');
Х=1 Принадлежит
Var
a:array[1..100] of integer;
i:integer;
begin
for i:=1 to 100 do
begin
a[i]:=random(100)+1
if ((i mod 2)=0) then write(a[i]," ");
end;
end.