1. фермер петрушкин собрал в своем экспериментальном саду яблоки нового сорта. он решил отправить яблочный сок на дегустацию в две лаборатории. ему всего удалось получить 8 литров сока. ему разделить сок ровно пополам, если у петрушкина есть сосуды только на 8, 5 и 3 литра. пример записи команды: а - б (из первого сосуда перелить во второй). № хода команда а = 8 литров б = 5 литров в = 3 литра начальное положение 8 0 0 1 а - б 3 5 0 2 3 4 5 6 7 2. у вас имеется заполненный сосуд объемом 7 литров, а также пустые емкости, объемом 4литра и 3 литра. необходимо получить 2, 2 и 3 литра в этих емкостях. № хода команда а = 7 литров б = 4 литров в = 3 литра начальное положение 7 0 0 1 2 3 4 5 6 7 3. помимо яблоневого сада у фермера петрушкина есть экспериментальная пасека. он получил от своих пчёл 24 литра меда. ему разделить мёд на три равные части с сосудов ёмкостью 13, 11 и 5 литров. № хода команда а = 24 литров б = 13 литров в = 11 литра г= 5 литров начальное положение 24 0 0 0 1 2 3 4 5 6 7 ссылка на сайт
Const
s=5;
Var
ar:array[1..s] of integer;
n,m,i:integer;
begin
writeln('N');
readln(n);
writeln('M');
readln(m);
writeln('Array:');
for i:=1 to s do
readln(ar[i]);
writeln('First array:');
for i:=1 to s do
begin
write(ar[i]:4);
if ar[i] div n<>0 then ar[i]:=ar[i]+m;
end;
writeln;
writeln('Final array:');
for i:=1 to s do
write(ar[i]:4);
end.
Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
1 2 3 4 5
Final array:
1 2 6 7 8
//Блок-схема во вложении
Var
n,m,max,min:integer;
Begin
write('Введите число: ');
readln(n);
min:=9;
max:=0;
while n>0 do
begin
m:=n mod 10;
if m<min then min:=m;
if m>max then max:=m;
n:=n div 10; end;
writeln('Максимальное число: ',max);
writeln('Минимальное число: ',min);
End.
2)
var
i,count: integer;
n,s:string;
begin
writeln('Введите число: ');
readln(s);
writeln('Введите цифру: ');
readln(n);
for i:=1 to length(s) do
if(s[i]=n)then
count:=count+1;
writeln('Количество раз, когда встречается цифра = ',count);
end.