А) =23,3(8)
б) =19,375(10)
в) =13,6(16)
1) заменим знаки на математические:
F:= (1+1)+(1+0) = 2+1 = 3
F:=3
Var a: array[1..7, 1..3] of integer; s, i, j: integer;begin for i:=1 to 7 do for j:=1 to 3 do readln (a[i, j]); for i:=1 to 7 do begin s:=0; for j:=1 to 3 do s:=s+a[i,j]; writeln('Средняя температура для дня №', i, ' равна ', s/3); end;end.
Var
X:real;
Begin
Write('x = ');
ReadLn(x);
Write('y = ',sqr(Sin(x))+1)
End.
<h3>PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);
a.Println;
a.Transform(t -> t.IsEven ? t + 1 : t * 2);
a.Println
end.