
Maanmek
6 год назад
ПОМОГИТЕ!!!!!!!!!!! ОЧЕНЬ НАДО!!!!!!!!!
Дано многоразрядное число N< = 10^9. Найти среднее арифметическое цифр числа, разряды которых равны 2 и 5.
ОТВЕТЫ

Никодимович
Aug 8, 2019
Var
n:longint;
s:string;
k:integer;
begin
Read(n);
Str(n,s); k:=Length(s);
Writeln(Ord(s[k-1])+Ord(s[k-4])-2*Ord(0))
end.
n:longint;
s:string;
k:integer;
begin
Read(n);
Str(n,s); k:=Length(s);
Writeln(Ord(s[k-1])+Ord(s[k-4])-2*Ord(0))
end.
138
Смежные вопросы: