var x:integer;
Begin
write('Введите число: '); read(x);
if(x mod 3 = 0) then write('Число кратно трем!') else
write('Число не кратно трем (остаток: '+x mod 3+')');
End.
#include <iostream.h>
char znak(int a,int b)
{
if(a>b)
return '>';
if(a<b)
return '<';
if(a=b)
return '=';
} ;
void main()
{
int a,b;
cin>>a>>b;
cout<<znak(a,b)<<"\n";
system("pause");
}
// PascalABC.NET 3.3
begin
var a:=ArrRandom(20,-10,10); a.Println;
writeln('min = ',a.Min);
end.
Пример:
10 -6 7 6 0 -3 0 3 -6 -6 -7 -4 -3 -7 7 -10 1 8 -9 8
min = -10