Program proizv;
var i, n, p:integer; a:array[1..10] of integer;
begin
p:=1;
writeln('Введите кол-во элементов');
readln(n);
for i:=1 to n do
begin
writeln('Введите число');
readln(a[i]);
If a[i]<>0 then
p:=p*a[i];
end;
writeln('p=',p);
end.
1 вариант
номер 1
Саша- Самойлов
Володя- Левин
Миша- Петриков (т.к только хозяин дома достанет гербарий из своего шкафа)
Юра- Богачёв
номер 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 и т.д
Второй вариант решается аналогично
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(100,-50,50); a.Println;
Writeln('Чисел, больших 10: ',a.Where(t->t>10).Count)
end.
<u>Пример</u>
-25 42 -38 -19 -8 -27 -41 -17 19 27 43 -1 -1 -36 29 47 -31 -42 -39 36 15 -3 32 37 -26 9 -19 23 -34 -20 -48 -43 -47 43 20 -46 9 -36 39 -50 -13 -45 19 -39 -24 -14 -25 -39 32 -23 16 2 -36 -5 25 28 -41 -24 -43 34 42 -14 -34 -12 24 36 -5 6 -6 24 -13 -46 -31 -39 -2 9 28 21 11 38 -16 -30 42 39 14 1 43 8 -32 43 45 -17 -43 -45 -41 -50 39 -20 -12 -10
Чисел, больших 10: 35
12800000000бит=1600000000.0000 байт