Лабораторная работа по "Программированию"
Автор: yuliya021999 • Март 24, 2019 • Лабораторная работа • 417 Слов (2 Страниц) • 707 Просмотры
297
Однажды в просторах рунета появился следующий ребус:
157892 = 3
203516 = 2
409578 = 4
236271 = ?
Никто так и не смог его разгадать. Позже оказалось, что число в правом столбце равно сумме "кругляшей", которые есть в цифрах числа, расположенного слева. Ваша задача написать программу, которая определяет, сколько кругляшей в числе.
var
a, b, k : integer;
function cnt(z : byte) : byte;
begin
case z of
0, 6, 9 : cnt := 1;
1..5, 7 : cnt := 0;
8 : cnt := 2
end
end;
begin
k := 0;
write('введите целое число: ');
readln(a);
while a <> 0 do
begin
b := a mod 10;
k := k + cnt(b);
a := a div 10
end;
writeln('количество кругляшей в числе: ', k);
readln
end.
[pic 1]
35
Однажды известный профессор обнаружил описания k конечных автоматов. По его мнению, нетривиальность конечного автомата, имеющего n состояний и m переходов, можно описать целым числом d = 19m + (n + 239)*(n + 366) / 2 . Чем больше d, тем больший интерес для науки представляет изучение его свойств.
Помогите профессору вычислить нетривиальность имеющихся у него автоматов.
...