// PascalABC.NET 3.2
begin
var n:=readInteger;
Writeln('десятки ',n div 10,' единицы ',n mod 10)
end.
Никогда, никогда не составляйте программу для тех задач, которые можно решить математически!
У нас первое число 5, последнее 50, количество чисел 50/5 = 10.
Имеем сумму арифметической прогрессии:
(5 + 50)/2 * 10 = 275.
Ответ: 275.
Var a,b,c,sred_A:real;
begin
Writeln('Привет,я-alconafft');
Writeln('Введи первое число');
readln(a);
Writeln('Введи второе число');
readln(b);
Writeln('Введи третье число');
readln(c);
sred_A:=a+b+c/3;
writeln('среднее арифметические равно ',sred_A);
end.
Внутренее представление хранится в обратной записи, т.о. число было 41f8 что в десятичной 16888