Function S_tr(a,b:integer):real;
begin
S_tr:=a*b/2
end;
var a,b,c,d:integer;
s:real;
begin
s:=0;
read(a,b,c,d);
s+=S_tr(a,b);
s+=S_tr(c,d);
writeln(s);
<span>end.</span>
<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=Arr('Понедельник','Вторник','Среда','Четверг','Пятница',
'Суббота','Воскресенье');
Writeln('Введите температуру');
var t:=new real[7];
for var i:=0 to 6 do begin Write(a[i],'>> '); Read(t[i]) end;
Writeln('Средняя температура за неделю: ',t.Average:0:2)
end.
<u>Введите температуру</u>
Понедельник>> 12
Вторник>> 10
Среда>> 16
Четверг>> 18
Пятница>> 17
Суббота>> 16
Воскресенье>> 14
Средняя температура за неделю: 14.71
1)условное обозначение:
Д-девочка
Б-блондин
Л-любит математику
ДБ-девочки блондинки
БЛ-блондины,любящие математику
ДЛ-девочки,любящие математику
ДБЛ-блондинка,которая любит математику
Д=20-11-5-1=3
Б=24-1-11-11=1
Л=17-5-1-11=0
ДБ=12-1=11
БЛ=12-1=11
ДЛ=6-1=5
ДБЛ=1
всего человек в классе:Д+Б+Л+ДБ+БЛ+ДЛ+ДБЛ=3+1+0+11+11+5+1=32
Ответ:32 человека всего в классе.
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
(1+SeqGen(ReadInteger('n='),i->2*i/(2*i+1),1).Sum).Println
end.
<u>Пример</u>
n= 10
9.8191254222214
1, 3, 5 = 0
Остальные = 1
0
1
0
1
0
1
1
1
1
1
1
1
1
1
1
1