Ответ:
Расшифрование: ВЕЗДЕ ИССЛЕДУЙТЕ ВСЕЧАСНО ЧТО ЕСТЬ ВЕЛИКО И ПРЕКРАСНО.
Если везде неверные таблички, значит в первой зебра. Волк не может быть в первой, значит он во второй. И для пони остаётся третья клетка.
Это ряд цифр в информатике. 0, 1, 2, 3, 4, 5, 6, 7, 8, 9.
Uses crt;
var a,b: Integer;
Begin
Write('Введите целое число: ');
Read a;
While a>0 do
Begin
b:=b+a mod 10;
a:=a div 10;
End;
Writeln('Сумма цифр введённого числа равна ', b);
End.
Program N1;
var a,c1,c2,c3: integer;
begin
writeln('Введите число');
read(a);
c1:=a mod 10;
c2:=(a div 10) mod 10;
c3:=(a div 100) mod 10;
writeln('Кол-во сотен = ',c3);
writeln('Кол-во десятков = ',c2);
writeln('Кол-во единиц = ',c1);
end.