Program abc; var a:array[1..6] of integer; var i,s: integer; begin i:=0;a[1]:=500;a[2]:=100;a[3]:=10;a[4]:=5;a[5]:=2;a[6]:=1; writeln('Введите целое число,сумму денег:'); readln(s); while s<>0 do begin if s>=a[1] then begin s:=s-a[1]; i:=i+1; end; if (s>=a[2]) and (s<a[1]) then begin s:=s-a[2]; i:=i+1; end; if (s>=a[3]) and (s<a[2]) then begin s:=s-a[3]; i:=i+1; end; if (s>=a[4]) and (s<a[3]) then begin s:=s-a[4]; i:=i+1; end; if (s>=a[5]) and (s<a[4]) then begin s:=s-a[5]; i:=i+1; end; if (s>=a[6]) and (s<a[5]) then begin s:=s-a[6]; i:=i+1; end; end; Writeln('Наименьшее число купюр =',i); end.
// PascalABC.NET 3.3, сборка 1633 от 10.02.2018 // Внимание! Если программа не работает, обновите версию!
begin var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:'); Writeln('*** Матрица A ***'); var a:=MatrRandom(m,n,10,99); a.Println(3); var b:=new integer[m,n]; var c:=new integer[m,n]; for var i:=0 to m-1 do for var j:=0 to n-1 do (b[i,j],c[i,j]):=(a[i,j] div 10,a[i,j] mod 10); Writeln('*** Матрица B ***'); b.Println(3); Writeln('*** Матрица C ***'); c.Println(3); Writeln(3*n*'-'); Writeln('Количество нулевых элементов в С: ', c.ElementsByRow.Where(t->t=0).Count); var (sb,sc):=(b.ElementsByRow.Sum,c.ElementsByRow.Sum); Writeln('Сумма всех элементов матрицы B: ',sb); Writeln('Сумма всех элементов матрицы C: ',sc); if sb>sc then Writeln('Сумма элементов матрицы B больше') else if sc>sb then Writeln('Сумма элементов матрицы C больше') else Writeln('Суммы элементов матриц B и С равны') end.
ReadLine - считывание(ввод)
WriteLine - вывод