===== PascalABC.NET =====
begin
var a := ReadArrInteger(3);
a.Println;
var (mx, mn) := (a.Max, a.Min);
a.Transform(p -> p = mn ? mx : p);
a.PrintLines
end.
<span>Одну и ту же информацию можно кодировать разными способами. Например, русский текст мы привыкли записывать с помощью русского алфавита. Этот же текст можно записать латинскими буквами или используя азбуку Морзе.</span>
Program qqq;
var n, s, x1, z1, i, del: integer;
begin
writeln ('vvedi 5-znachnoe chislo < 32768');
{ограничение типа integer}
readln (n);
del:=10000;
for i:=1 to 5 do
begin
z1:= n mod del;
x1:= n div del;
s:=s+x1;
n:=z1;
del:=del div 10;
end;
writeln ('summa cifr=', s);
readln;
end.
#include <iostream>
#include <math.h>
using namespace std;
int main()
{
int a, b;
cin >> a >> b;
int i;
for (i = sqrt(a) + 1; i < sqrt(b); i++)
{
cout << i * i << " ";
}
return 0;
}
Если имеются в виду арабские цифры, использующиеся для записи в десятичной системе счисления, то в множество войдут десять цифр: 0, 1, 2, 3, 4, 5, 6, 7, 8, 9.