begin var a:=ReadInteger('Введите a от 1 до 30:'); if a<1 then begin Writeln('Неверно'); Exit end; var b:=ReadInteger('Введите b от '+a.ToString+' до 30:'); if (b<a) or (b>30) then begin Writeln('Неверно'); Exit end; var P:=ArrFill(30,0); for var i:=a-1 to b-1 do P[i]:=2; P.Println end.
Пример Введите a от 1 до 30: 2 Введите b от 2 до 30: 10 0 2 2 2 2 2 2 2 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
Саша- Самойлов Володя- Левин Миша- Петриков (т.к только хозяин дома достанет гербарий из своего шкафа) Юра- Богачёв
номер 2
переливаем 2 литра в 2-ух литровую банку из 6-ти литровой (1 переливание) (получилось и у той и у другой мёда по 3 литра) Из двух литровой доливаем литр, который вмещается в 4-ёх литровую банку (2 переливание) последний литр из 2-ух литровой переливаем в 6ти литровую (3 переливания)
почему-то решилось за 3 переливания
номер 3
2,4,8,10,20,22,44,46...
Прибавление 2, умножение на 2, прибавление 2 и так далее
3,6,12,15,30, 33...
Прибавление 3, умножение на 2, прибавление 3 и т.д
1,3,4,12,13, 39, 40, 120, 121...
Умножение на 3, прибавление 1, умножение на 3 и т.д
Program n_1;
var i, a, b, c:integer;
begin
a:=0; b:=0;
for i:=1 to 10 do begin
read(c);
if c mod 2 = 0 then a:=a+1
else b:=b+1;
end;
writeln('Вы ввели ', a, ' четных чисел и ', b, ' нечетных');
end.