1)
var b,i:integer;
begin
b:=0;
for i := 100 to 999 do
if (i mod 17) = 0 then b:=b+i;
writeln (b);
end.
2)
var b,c:integer;
begin
b:=1;
for c:= 1 to 15 do
b:=b*c;
writeln (b);
end.
Дана зашифрованная пословица. Чтобы рубить дрова, нужен 14,2,3,2,7, а чтобы полить огород – 10,4,5,1,6. Рыбаки сделали во льду 3
дартс
Топор,лейка,прорубь,еж
копейка рубль бережет
Давайте решу как ведущий экономист.
Excel, действительно, не обязателен.
350 * [ (1 - (1+0,11/4)^-28) / (0,11/4) ] =6 772,789 тыс. руб.