Предмет: Информатика,
автор: Мари113
Не могу написать программу на языке Паскаль, помогите, кто как может. Заполнить массив из 12 чисел случайными числами в интервале [-12..12] и выполнить инверсию для каждой трети массива. ДАЮ 15 БАЛЛОВ ЗА ЛУЧШИЙ
Ответы
Автор ответа:
0
Если решать на ПаскалЕ, то вот так:
program palindrom;
var
n, s: string;
i: integer;
b: boolean;
begin
readln(n);
for i:=1 to 4 do
s=n[5-i];
if s=n then b:=True else b:=False;
writeln(b);
end.
program palindrom;
var
n, s: string;
i: integer;
b: boolean;
begin
readln(n);
for i:=1 to 4 do
s=n[5-i];
if s=n then b:=True else b:=False;
writeln(b);
end.
Интересные вопросы
Предмет: Русский язык,
автор: БахрамоваС
Предмет: Русский язык,
автор: maksimcxn8165
Предмет: Другие предметы,
автор: r0xxy
Предмет: Геометрия,
автор: angelasssssss
Предмет: Русский язык,
автор: madamenko234