Объяснение:
Тема человека и природы, сохранения ее красоты, первозданности, бережного отношения к ее богатствам была и остается популярной и актуальной в башкирской литературе на протяжении десятилетий. В произведениях Ф. Исянгулова, Я. Хамматова, А. Бикчентаева, Ш. Янбаева, Н. Мусина и других показано, что и в и в настоящем вопросы природопользования волновали и волнуют ученых и рядовых людей, выступающих против повальной вырубки лесов, строительства многочисленных леспромхозов, железных дорог, фабрик и заводов с целью получения лишь экономической выгоды, но без учета экологических проблем.
open System
[<EntryPoint>]
let main argv =
let mutable sum = 0
let mutable i = 0
let array = [19..51]
while i < array.Length do
let value = array.Item i
if 5 % value = 0 then
sum <- sum + value
i <- i+1
Console.WriteLine sum
Console.ReadKey true |> ignore
0
// Pascal (for)
var sum : integer;
i: integer;
begin
sum := 0;
i := 0;
for i:=19 to 51 do
begin
if i mod 5 = 0 then
sum := sum + i;
end;
writeln(sum);
end.
// Pascal
var sum : integer;
i: integer;
begin
sum := 0;
i := 19;
while (i <= 51) do
begin
if i mod 5 = 0 then
sum := sum + i;
i := i + 1;
end;
writeln(sum);
end.