<em>// PascalABC.NET 3.3, сборка 1576 от 16.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(20,0,10); a.Println;
Writeln('Результаты в форме "(элемент, число повторов)")');
a.GroupBy(t->t).Select(t->(t.Key,t.Count)).Where(t->t[1]>1)
.OrderBy(t->t[0]).Println(NewLine);
end.
<u>Пример</u>
6 9 1 2 10 8 6 3 7 7 9 5 5 7 10 2 9 3 2 7
Результаты в форме "(элемент, число повторов)")
(2,3)
(3,2)
(5,2)
(6,2)
(7,4)
(9,3)
(10,2)
#include <iostream>#include <cstdlib>#include <ctime>
using namespace std;
int main(){ srand(static_cast<unsigned int>(time(0))); //seed random number generator
int secretNumber = rand() % 100 + 1; // random number between 1 and 100 int tries = 0; int guess; cout << "\tWelcome to Guess My Number\n\n";
do { cout << "Enter a guess: "; cin >> guess; ++tries;
if (guess > secretNumber) { cout << "Too high!\n\n"; } else if (guess < secretNumber) { cout << "Too low!\n\n"; } else { cout << "\nThat's it! You got it in " << tries << " guesses!\n"; }
} while (guess != secretNumber);
return 0;}
<span>1) На старом механическом вычислительном устройстве – арифмометре – можно было умножать восьмизначные числа на четырехзначные. - 1
Да, можно было.
2) Билл Гейтс написал свою первую программу на языке программирования Basic в 13 лет, и она называлась «Сапёр».
- 0.
Да, в 13 лет и на Бейсике, но это были крестики-нолики.
3) Символом операционной системы Linux является кролик, потому что в
детстве разработчика этой системы в зоопарке укусило именно это
животное. - 0. Символ Linux - пингвин Lilo.
4) В Швейцарии установлен один из дата-центров с множеством
серверов, который подогревает воду в небольшом озере. - 1. Есть такой.
5) ФБР считает, что
Одноклассники – лучшая площадка для общения террористов. - 0. ФБР считает, что это Твиттер.
Число 1010 в двоичной системе = 10 в десятичной системе.
</span>
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString.Reverse.Println
end.
<u>Пример</u>
рука
акур
