# -*- coding: utf-8 -*-
def getAverageFromEven(first, last):
'''Среднее арифметическое.'''
count, s = 0, 0
for i in range(first, (last + 1)):
if i % 2 == 0:
s += i
count += 1
return s / count
f = int(input('первый элемент: '))
l = int(input('первый элемент: '))
print 'среднее арифметическое: %i' % getAverageFromEven(f, l)
<h3>PascalABC.NET 3.4.2, сборка 1814 от 02.10.2018</h3>
function ReadWhileSum(cond: integer->boolean): sequence of integer;
begin
var s := 0;
while True do
begin
var x := ReadInteger();
s += x;
if not cond(s) then break;
yield x;
end;
end;
begin
Println('Сред. арифм. =',ReadWhileSum(sum -> sum < 150)
.Where(t->t.IsEven).Average);
end.
Ответ:
не, бред какой-то
звони оператору, выясняй с ним, почему минут нет
Var
S:string;
i:integer;
A,B:char;
Begin
Write('Введите текст: ');
ReadLn(S);
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
For i:= 1 to Length(S) do
if S[i] = A then S[i]:=B;
WriteLn(S)
End.
Var
i: integer;
ar: array[1..3]of integer;
procedure PS(a: integer);
var
P: Integer;
S: Real;
begin
P := 3 * a;
S := sqrt(3) / 4 * sqr(a);
writeln(P, ' ', S:0:6);
end;
begin
readln(ar[1], ar[2], ar[3]);
for i := 1 to 3 do PS(ar[i]);
end.