Программа:
Pascal:
№1)
var arr: array[1..10] of integer;
begin
for var i := 1 to 10 do arr[i] := random(100);
writeln(arr);
end.
№2)
const N = 15;
var arr: array[1..N] of integer;
i, tmp: integer;
begin
for i := 1 to 15 do arr[i] := random(100);
writeln(arr);
for i:=1 to n div 2 do begin
tmp := arr[i];
arr[i] := arr[N - i + 1];
arr[N - i + 1]:= tmp;
end;
writeln(arr);
end.
№3)
const N = 20;
var
arr: array[1..N] of integer;
i, tmp, j: integer;
begin
for i := 1 to N do readln(arr[i]);
writeln(arr);
for i := 1 to N - 1 do
for j := 1 to N - i do
if (arr[j] > arr[j+1]) then begin
tmp := arr[j];
arr[j] := arr[j+1];
arr[j+1] := tmp;
end;
writeln(arr);
end.
ответ: м и к р о ф о н
о
м ы ш ь
д п
и ь
с ю п
к л а в и а т у р а
е о э
р ц к
в и д е о к а р т а
с а
с н
о
м о н и т о р
Объяснение:
function isPalindrome(str) {
var strLen = str.length,
strReverse = str.split('').reverse().join('');
if (strReverse == str) {
return 'yes';
} else {
return 'no';
}
}
Для проверки нужно ввести:
test = isPalindrome('abcdedcba');
test2 = isPalindrome('abcded');
console.log(test);
console.log(test2);
Если строка является палиндромом(abcdedcba), тогда выводим True, если НЕ является(abcded), тогда выводим False.