Написать программу на питоне, которая будет разбивать введённое количество долларов/рублей рандомно на монетки. например: пользователь ввел 39.51$, программа выводит: 39.51$ = 10 монет по 25 центов, 3 монеты по 1 центу и т.д.
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017 // Внимание! Если программа не работает, обновите версию!
begin var x:=ArrGen(8,i->Ln(i+1.1)); x.Println; var k:=x.Where(t->(Sin(t)>-0.5) and (Sin(t)<=0)).Count; var im:=x.IndexMin; Writeln('На указанном интервале найдено элементов: ',k); Writeln('Минимальный элемент массива, равный ',x[im], ' имеет порядковый номер ',im+1) end.
Результат 0.0953101798043249 0.741937344729377 1.1314021114911 1.41098697371026 1.62924053973028 1.80828877117927 1.96009478404727 2.09186406167839 На указанном интервале найдено элементов: 0 Минимальный элемент массива, равный 0.0953101798043249 имеет порядковый номер 1
Program Adelia17; uses crt; const n=30; var matr:array [1..n] of integer; i,pos,neg,zero:integer; begin writeln('*** Alphaeus is thinking... ***'); writeln('*** OK ***'); writeln(); writeln(); writeln('Программа находит количество положительных, отрицательных и нулевых элементов массива'); pos:=0; neg:=0; zero:=0; randomize; writeln('Массив: '); for i:=1 to n do begin matr[i]:=random(100)-50; write(matr[i]:4,' '); if matr[i]>0 then pos:=pos+1; if matr[i]<0 then neg:=neg+1; if matr[i]=0 then zero:=zero+1; end; writeln(); writeln('Количество положительных элементов равно ',pos); writeln('Количество отрицательных элементов равно ',neg); writeln('Количество нулевых элементов равно ',zero); end.
// Внимание! Если программа не работает, обновите версию!
begin
var x:=ArrGen(8,i->Ln(i+1.1)); x.Println;
var k:=x.Where(t->(Sin(t)>-0.5) and (Sin(t)<=0)).Count;
var im:=x.IndexMin;
Writeln('На указанном интервале найдено элементов: ',k);
Writeln('Минимальный элемент массива, равный ',x[im],
' имеет порядковый номер ',im+1)
end.
Результат
0.0953101798043249 0.741937344729377 1.1314021114911 1.41098697371026 1.62924053973028 1.80828877117927 1.96009478404727 2.09186406167839
На указанном интервале найдено элементов: 0
Минимальный элемент массива, равный 0.0953101798043249 имеет порядковый номер 1