Регистрация
ОВОВОВОВо
14.11.2020 14:22
Информатика
Есть ответ 👍

РЕБЯТА ОЧЕНЬ
ЭТО НУ ОЧЕНЬ

107
115
Посмотреть ответы 1

Ответы на вопрос:

dtgyhyccubbycy
dtgyhyccubbycy
4,4(13 оценок)
// f# 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.

Популярно: Информатика