Кестені дəптерлеріңе толтырыңдар

Батырма Қолданылуы

Файлом,веб-страницей

Местом в документе

Новым документом

1. Вот так сейчас решают подобные задачи:

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  Writeln(Range(1,100).Select(i->sin(i)*cos(i)).Where(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

 Вот порядок приготовления пельменей. В посуду смешивают яйцо,вода, мука. чуть соли. .Тесто замешивают до консистенции,чтоб можно было резать ножом.  Дальше            Некоторые раскатывают большой сочень потом стаканом  или другой формой выдавливают  лепешечки на посредственно для пельменей туда кладут фарш слепили и готово.                                                                                                          Другие раскатывают тесто под вид колбаски ,затем ножом эту колбаску разрезают на равные части,которые раскатывают для фарша.  Я знаю три вида формы пельменей.