Uses crt;
var a,max,x,min:integer;
begin clrscr;
write('Vvedite chislo: '); readln(a);
a:=abs(a);
max:=a mod 10;
min:=a mod 10;
while a>0 do begin
x:=a mod 10;
a:=a div 10;
if x>max then max:=x;
if x<min then min:=x;
end;
writeln('Max^2: ',sqr(max));
writeln('Min^2: ',sqr(min));
readln;
<span>end.</span>
Из 10 л ведра переливаем в 6 л ведро . мы знаем что в первом осталось 4 л. × 3 и : 2
Прости, что отвечаю через 2 часа, был не дома)
var
i, j, n : integer;
flag : boolean;
begin
write('n = ');
read(n);
for i := 2 to n do begin
flag := true;
for j := 2 to i-1 do
if (i mod j = 0) then begin
flag:=false;
break;
end;
if flag = true then write(i, ' ');
end;
var a,b:integer;
Begin
randomize;
a:=random(99);
writeln('Дополните ', a);
read(b);
if (a+b=100) then writeln(':-)')
else writeln(':-(');
end.
Может все основные точно не знаю