var
a:array[1..100] of integer;
povt,i,j,elem:integer;
begin
povt:=0;
randomize;
for i:=1 to 100 do
a[i]:=random(1001);
for j:=1 to 100 do
povt:=0;
begin
for i:=1 to 100 do
if a[i]=a[j] then
begin
elem:=a[i];
povt:=povt+1;
end;
povt:=povt-1;
write('Число= '+elem+ ' Количество повторений= '+ povt);
end;
<h2>Код</h2>
#include <iostream>
using namespace std;
int main(){
setlocale(LC_ALL, "Russian");
string s = "+++++_-_-_-.*.*.*.*";
unsigned int plusValue = 0, minusValue = 0, starValue = 0;
for(int i = 0; i < s.length(); i++){
if(s[i] == '+'){
plusValue = plusValue + 1;
}
else if(s[i] == '-'){
minusValue = minusValue + 1;
}
else if(s[i] == '*'){
starValue = starValue + 1;
}
}
cout << "Всего " <<
plusValue << " плюсов, " <<
minusValue << " минусов и " <<
starValue << " звёздочек.";
return 0;
}
<h2>Проверка</h2>
Всего 5 плюсов, 3 минусов и 4 звёздочек.
Алг Число
нач
цел n, n1, k, f
вывод "Введите целое число", нс
ввод n
n1:= div(n,10)
k:= mod(n,10)
f:= 1
нц пока n1<>0
если mod(n1,10) > k то
f:= 0
все
k:= mod(n1,10)
n1:= div(n1,10)
кц
если f=1 то
вывод "Да."
иначе
вывод "Нет."
кон
Разделить монеты на пополам, взвесить, какая сторона легче ту опять разделить напополам и взвесить и повторять пока не найдете фальшивую монету
<span>ОБЛАДАЮТ СВОЙСТВОМ НАГЛЯДНОСТИ</span>