а) третий рисунок
б) 4 раза
<em>// PascalABC.NET 3.3, сборка 1576 от 16.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(20,0,10); a.Println;
Writeln('Результаты в форме "(элемент, число повторов)")');
a.GroupBy(t->t).Select(t->(t.Key,t.Count)).Where(t->t[1]>1)
.OrderBy(t->t[0]).Println(NewLine);
end.
<u>Пример</u>
6 9 1 2 10 8 6 3 7 7 9 5 5 7 10 2 9 3 2 7
Результаты в форме "(элемент, число повторов)")
(2,3)
(3,2)
(5,2)
(6,2)
(7,4)
(9,3)
(10,2)
{
cin>>x;в средине цикла считываем х
if(x==15) count++;проверяем на равенство с 15, если равно прибавляем к count один
}
cout<<count; виводим результа
Unit jov79262;
function s2(a,b:real):real;
begin
s2:=a*b
end;
function v3(a,b,h:real):real;
begin
v3:=a*b*h
end;
end.
• заголовок программы,
• раздел объявлений и соглашений (декларационная часть),
• раздел текстов процедур и функций,
• тело программы (обязательная часть).