{Выводит узор из 100 произвольно размещенных окружностей произвольного
радиуса и цвета}
uses Graph;
var
grDriver:integer;
grMode: integer;
grPath:string;
ErrCode:integer;
x,y,r: integer; ( координаты центра и радиус окружности }
i: integer;
begin
grDriver:=VGA;
grMode:=VGAHi;
grPath:=' ';
InitGraph (grDriver,grMode,grPath);
ErrCode:=GraphResult;
if ErrCode <> grOk then
begin
writeln ('Ошибка инициализации графического режима.1);
writeln ('Для завершения работы нажмите <Enter>');
readln;
Halt(l);
end;
Randomize;
for i:=l to 100 do
begin
x:=Random(640);
y:=Random(480);
r:=Random(240);
Setcolor(Random(16));
Circle(x,y,r);
end;
readin;
end.
С++14
Код:
#include <iostream>#include <iomanip>#include <string>#include <algorithm> size_t count_char(const std::string& number, char c) { return std::count(number.begin(), number.end(), c);} bool is_it_more_than(const std::string& number, char a, char b) { return count_char(number, a) > count_char(number, b);}int main() { long long k = 4353621ll; char a = '3'; char b = '4'; std::string number = std::to_string(k); std::cout << "Number is " << number << std::endl; std::cout << "a = " << a << std::endl; std::cout << "b = " << b << std::endl; std::cout << "Does a appear in Number more often than b: " << std::boolalpha << is_it_more_than(number, a, b) << std::endl; return 0;}
