ПОМОГИТЕ!!!!!!!!!!! ОЧЕНЬ НАДО!!!!!!!!! Дано многоразрядное число N меньше =10^9. Найти среднее арифметическое цифр числа, разряды которых равны 2 и 5.
ПОМОГИТЕ!!!!!!!!!!! ОЧЕНЬ НАДО!!!!!!!!!
Дано многоразрядное число N<=10^9. Найти среднее арифметическое цифр числа, разряды которых равны 2 и 5.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы