Var a, sum, i : integer; s, x : string; sa : real;
begin sum:=0; readln(s); for i:=1 to length(s) do begin x:=copy(s, i, 1); val(x, a); sum:=sum+a; end; sa:=sum/(length(s)); writeln('сумма: ', sum); writeln('среднее арифметическое: ', sa:4:2);end.
Const n=20;
Var i, k:integer ;s:real ;
A:array [1..200]of Integer ;
Begin
S:=0;
For i:=1 to N do begin
Write(' ') ;
a[i]:=random(41)+150;
S:=s+a[i];
Writeln(' ', a[i]) ;
End;
S:=s/n;
For i:=1 to N do begin
If(a[i] >s) then k:=k+1;
End;
Writeln ( ' ', k) ;
End.
Ответ:
1.
a = 5
b = 3
print(str(a) + '+' + str(b) + '=?')
2.
a = 5
b = 3
print('Z(' + str(a) + ')' + '=' + 'F(' + str(b) + ')')
3.
a = 5
b = 3
print('a=' + str(a) + ';b=' + str(b) + ';')
Объяснение:
лови!)
Сканер. с листа бумаги клавиатура? лооол
На простых фотоаппаратах изображение фокусируется на плёнку, а в цифровых камерах на матрицу