256 1024 16384
1) сосиску из 9 укусов можно съесть 2^8 способами = 256
2) из 11 укусов: 2^10=1024
3) из 15 укусов: 2^14=16384
Var a,i,max:integer;
begin
max:=-30000;
for i:=1 to 5 do begin
readln(a);
if a>max then max:=a;
end;
writeln('Максимальное - ', max);
end.
Проверяем число Н
перебираем числа от 2 до Н, если ни одно не делится, то простое, если делится - составное
Const n=4; m=5;
var a:array[1..n,1..m] of integer;
i,j:integer;
begin
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(1000);
write(a[i,j]:4);
end;
writeln;
end;
for i:=1 to n do
for j:=1 to m do
if (a[i,j] mod 7=0)and(a[i,j]>99)and(a[i,j]<1000) then a[i,j]:=a[i,j]-10;
writeln('New:');
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:4);
writeln;
end;
end.
Пример<span>889 188 17 186 772
394 121 406 679 936
20 147 868 691 450
525 73 575 232 416
New:
879 188 17 186 772
394 121 396 669 936
20 137 858 691 450
515 73 575 232 416
</span>