Var a: integer;
begin
write('Введите число: '); read(a);
if((a div 10) = (a mod 10)) then writeln('Цифры одинаковые')
else writeln('Цифры не одинаковые');
end.
Алгоритм:
<span>Перебирать элементы массива в цикле и присваивать им значения формулы. ВЫводить элемент ан экран без перевоад строки. Если элемент массива меньше 50 приплюсовывать к значению суммы и увеличивать счетчик. </span>
<span>Вывести на экран отношение суммы к значению счетчика.</span>
Ввод заголовков: <title>
Форматирование шрифта: <b>, <I> ,<strike>, <size>, <color>
Абзацы: <p>, <br>