Принтер для вывода
сканер для ввода
<h3>PascalABC.NET 3.4.2, сборка 1864 от 11.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3><h2>№1</h2>
begin
var s := ReadlnString;
var a := ReadlnChar;
if s[1] = a then Print('Да')
else Print('Нет')
end.
<h2>№2</h2>
begin
var s := ReadlnString;
var a := ReadlnChar;
s.Where(c->c=a).Count.Println
end.
Во 2 строке добавляется только 1 число, поэтому дальше будет выход за границы листа.
Чтобы исправить: добавлять значения в цикле и в 3 строке range(len(A)) => range(len(A)-1)
Введите значения переменной MM=3sqr((1+M)*6) 576
n = int(input('Введите число: '))
sum = 0
while n != 0:
a = n % 10
if a == 5:
sum += a
n //= 10
print('Сумма пятёрок:',sum)