С*A +B*A + D*A +D +B* !C=A*(C+B) +D*(A+1) +B*!C=A*(C+B)+D+B*!C
//PascalABC.NET
//Версия 3.3, сборка 1611
begin
var c:=ArrRandomReal(12,-10,70).Println();
write(c.Where(x->(x>5.3) and (x<40.7)).Aggregate(Real(1),(x,y)->x*y));
end.
Еда напитки всего
бутер
кофе 2
пряник
плюшка 4
сок 2
кекс
Program old;
var
s: real;
y: integer;
begin
s:=20;
y:=1626;
writeln('Сейчас 1626 год и я положил в банк: ', s);
while y<2003 do
begin
s:=(s+(s*0.04));
y:=(y+1);
writeln(s,'$ В банке на ', y, ' год');
end;
end.
Итого: 52795743.6290571$ В банке на 2003 год
Дели число на 2 и запиши остатки в обратном порядке