Дана электронная таблица: ABCD 1 7 9 14 2 11 15 26 В ячейку D2 ввели формулу, вычисляющую выражение по значениям других ячеек: =(A2*B1+C1). В результате в ячейке D2 появится значение: 1) 81 2) 113 3) 91 4) 179
Var a,b,i,n,j,l,ier:integer; s:string; p:boolean; begin Write('Введите границы интервала в виде пары натуральных чисел '); Read(a,b); n:=0; for i:=a to b do begin Str(i,s); l:=Length(s); if l=1 then Inc(n) else begin j:=1; repeat p:=(s[j]=s[l-j+1]); Inc(j) until (j>l) or (not p); if p then Inc(n) end end; Writeln('Количество палиндромов равно ',n) end.
Тестовое решение: Введите границы интервала в виде пары натуральных чисел 1550 2450 Количество палиндромов равно 10
Const n=20; var a:array[1..n] of integer; b,c:array[1..n div 2] of integer; i:integer; begin { инициализация } Randomize; Writeln('Элементы массива'); for i := 1 to n do begin a[i]:=Random(99)+1; { Интервал [1..99] } Write(a[i],' '); end; Writeln; { Формирование массивов-результатов } for i:=1 to n div 2 do begin b[i]:=a[2*i-1]; c[i]:=a[2*i] end; { Вывод результатов } Writeln('Массив, сформированный из значений с нечетными номерами'); for i:=1 to n div 2 do Write(b[i]:3); Writeln; Writeln('Массив, сформированный из значений с четными номерами'); for i:=1 to n div 2 do Write(c[i]:3); Writeln end.
2) 113
Объяснение:
подставим в формулу числа из таблицы
11*9+14=113