var
i, x: integer; // объявляем переменные целочисленного типа.
y, sum : real; // объявляем переменные вещественного типа.
begin
y := 10; // пробег спортсмена в первый день.
while i < 6 do // в цикле определяем пробег спортсмена со 2-го по 7-й день.
begin
y := y + (y / 100 * 10); // пробег спортсмена за i-й день.
sum := sum + y; // считаем сумму километров.
i := i + 1; // счетчик дней недели.
end;
write ('В сумме за 7 дней спортсмен пробежал: ',round(sum + 10,2), ' км.'); //вывод на экран.
end.
Объяснение:
Вбей в Паскале с WHILE
Считываем число, затем с операций нахождения остатка от деления(для этой цели берем остаток от деления на 10) и деления нацело(тоже на 10) находим из каких цифр состоит число(для начала нужно взять модуль числа), затем сравниваем эти цифры, если они равны, то выводим сообщение: "Число состоит из одинаковых цифр", в ином случае: "Число не состоит из одинаковых цифр".
P.S. Для "овер" умных знатоков чтобы найти вторую цифру мы используем деление с остатком на 10, а для нахождения первой цифры мы используем целочисленное деление на 10.