Var a: array[1..12] of integer;
<span> i: integer;
</span><span>begin
</span><span> randomize;
</span><span> write('массив: ');
</span><span> for i:=1 to 12 do
</span><span> begin
</span><span> a[i]:=random(40);
</span><span> write(a[i],' ');
</span><span> end;
</span><span> writeln;
</span><span> write('четные элементы: ');
</span><span> for i:=1 to 12 do
</span><span> if (a[i]>0) and (a[i] mod 2 = 0) then write(a[i],' ');
</span><span>end.
</span><span>
</span>массив: 10 27 38 8 25 22 31 13 27 14 12 11
<span>четные элементы: 10 38 8 22 14 12
</span>
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
function F(n: integer):int64 :=
n <= 1 ? 1 : 2.To(n).Aggregate(int64(1), (p, q)-> p * q);
begin
Range(1, ReadInteger('n=')).Select(t -> F(t)).Sum.Println
end.
<h2>n= 10</h2><h2>4037913 </h2>
Var a,b:integer;
begin
readln(a);
b:=a+10;
writeln(b);
<span>end.</span>
Переводим цену пирожка в копейки (по формуле 100a + b), умножаем на n и получаем цену n пирожков в копейках. Делим с остатком на 100 и получаем в целой части число рублей, в остатке – число копеек.
Pascal:
program pies;
var a, b, n, total: integer;
begin
writeln('Введите значения a, b, n:');
read(a, b, n);
total := n * (100 * a + b);
writeln('Цена пирожков: ', n div 100, ' руб. ', n mod 100, ' коп.')
end.
