Есть ответ 👍

Вмассиве b1, найдите количество чисел, оканчивающихся 0.

194
355
Посмотреть ответы 2

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


B10 и b20. ответ: 2. я думаю.

1. вот так сейчас решают подобные : // pascalabc.net 3.1, сборка 1174 от 22.02.2016 begin   writeln(range(1,100).select(i-> sin(i)*cos((x-> x< > 0).average) end. тестовое решение: -0.00136006072493969 2. а вот так учат писать это же школьные учителя: // pascalabc.net 3.1, сборка 1174 от 22.02.2016 var   m: array[1..100] of real;   i,k: integer;   s: real; begin   s: =0;   k: =0;   for i: =1 to 100 do begin       m[i]: =sin(i)*cos(i);       if m[i]< > 0 then begin           s: =s+m[i];           k: =k+1           end       end;   writeln(s/k) end. тестовое решение: -0.00136006072493969

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