Const
n = 5;
var
arr: array [1..n] of integer;
i, N1, sum: integer;
begin
write('N = ');
readln(N1);
for i := 1 to n do
begin
write('A[', i, '] = ');
readln(arr[i]);
end;
i := 1;
sum := 0;
while (sum <= N1) and (i <= n) do
begin
sum := sum + arr[i];
i := i + 1;
end;
if sum > N1 then
writeln(sum)
else
writeln('Summa not grether then N');
end.
Var
i,a:integer;
s:real;
begin
for i:=1000 to 3000-1 do
if (i mod 6=0)and(i mod 10=4)then
begin
write(i,' ');{это чтобы посмотреть на числа, эту строку можно убрать}
s:=s+i;
end;
writeln;
writeln('S= ',S);
end.
1) 346 (8) - 64 (8) = 262 (8)
2) 1022 (16) - 5А (16) = FC8 (16)
3) 24ECI * 22 = 4E758 (16)
Номера ответов: 1,4,1,3,4,2,3,2,1,1
1 кувшином 3 л наливать воду в кувшин 8л. Наполнив большой кувшин, в маленьком останется 1л
2 вылить все из большого кувшина, перелить туда 1л из маленького и налить еще два маленьких кувшина в большой