Помогите пожалуйста! 1)С клавиатуры вводится произвольное число N , с помощью деления div или mod определите , является ли оно д
Помогите пожалуйста! 1)С клавиатуры вводится произвольное число N , с помощью деления div или mod определите , является ли оно двухзначным. 2)С клавиатуры вводится четырехзначное число X , определите является ли данное число палиндромом.
1) program n_1; var n: integer; begin readln (n); if n div 100 = 0 then writeln ('Число двузначное') else writeln ('Число не является двузначным') <span>end. </span>
Var a:array[1..10] of integer; i,x:integer; begin write('Исходный массив: '); for i:=1 to 10 do begin a[i]:=random(5); write(a[i],' '); end; WRITELN; write('Что ищем?: '); readln (x); for i:=1 to 10 do if x=a[i] then write('A[',i,'] '); end.