Var a,b,max:integer;
begin
readln(a);
max:=-maxint;
while a>0 do
begin
b:=a mod 10;
a:=a div 10;
if b>max then max:=b;
end;
writeln(max)
end.
1 точка=1пиксель кол-во пикселей зависит от разрешения пиксель это и есть точка
//PascalABC.NET
//Версия 3.4.2
begin
range(1,ReadInteger('n=')).Where(x->x.IsEven).Println;
end.
С++
_________
Пользователь введёт 2 5
программа найдёт 5 и отнимет 5 от 2 получится 3
__
int x,y;
cout<<"->";
cin>>x>>y;
if (x>=y)
{
x-=y;
cout<<x<<endl;
}
if (y>=x)
{
y-=x;
cout<<y<<endl;
}
11*1024*8[bit]/11264 = 8 бит на символ
значит всего возможных символов 2^8 = 256