3. Дана программа: Program Pri; Var a, integer; Begin ReadLn (a); ReadLn (b) ; а:=a*a; b:=b *b; WriteLn(a); WriteLn (b); End. Определите, какая задача решается данной программой. Что будет выведено на экран при вводе значений: а = 9, b = 10?
Нельзя использовать кодовые слова, которые начинаются с 0 или с 10. 11 также не можем использовать, поскольку тогда мы больше не сможем взять никакое другое кодовое слово, а нам их нужно пять. Поэтому берём трёхзначное 110. По Условию Фано, если есть a, то ab существовать не может. Другими словами, мы не можем использовать начало с 0, а если возьмем 11, то начинать другие числа не сможем. Поэтому остается брать числа 110,1110,1111(последний берем без 0, т.к. он последний и других чисел уже не нужно, но если бы и было нужно, то стоит взять число 11110 не нарушая условия Фано)
Нельзя использовать кодовые слова, которые начинаются с 0 или с 10. 11 также не можем использовать, поскольку тогда мы больше не сможем взять никакое другое кодовое слово, а нам их нужно пять. Поэтому берём трёхзначное 110. По Условию Фано, если есть a, то ab существовать не может. Другими словами, мы не можем использовать начало с 0, а если возьмем 11, то начинать другие числа не сможем. Поэтому остается брать числа 110,1110,1111(последний берем без 0, т.к. он последний и других чисел уже не нужно, но если бы и было нужно, то стоит взять число 11110 не нарушая условия Фано)
81
100
Объяснение:
Программа получает на вход 2 целых числа:
ReadLn (a); ReadLn (b)
Возводит их в квадрат (умножает число на себя):
а:=a*a; b:=b *b;
Выводит получившиеся значения на экран с новой строки:
WriteLn(a); WriteLn (b);
а = 9 а = 9 * 9 = 81
b = 10 b = 10 * 10 = 100
в программе пропущена часть объявления переменных, должно быть так Var a,b:integer;