Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
16.03.2020 14:08 •
Информатика
Не могу написать программу на языке паскаль, , кто как может. заполнить массив из 12 чисел случайными числами в интервале [-12..12] и выполнить инверсию для каждой трети массива. 15 за лучший
Ответ:
IAmCookie
21.07.2020 16:26
Если решать на ПаскалЕ, то вот так:
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
SwanBlack
15.11.2022 00:42
Напишите программу, которая в последовательности натуральных чисел определяет сумму чисел, оканчивающихся на 3. программа получает на вход количество чисел в последовательности,...
Zhenya12123
15.11.2022 00:42
Какие формулы я должна вставить? 1)сколько учеников в северо-восточном округе (св) выбрали в качестве любимого предмета ? ответ на этот вопрос запишите в ячейку h2 таблицы. 2) каков...
ааnell714
15.11.2022 00:42
Как записать выражение в excel tg: ^3 60 градусов...
logan9
15.11.2022 00:42
Пусть 30 чисел водятся по одному. определить что больше, количество положительных или количество отрицательных чисел. на паскале...
ruzar1987
15.11.2022 00:42
Все 4-буквенные слова, составленные из букв в, и, р, т, записаны в алфавитном порядке. вот начало списка: 1. 2. 3. 4. 5. ввив …… запишите слово, которое стоит на 249-м месте от...
MrAmoral
15.11.2022 00:42
Даны целые числа а1, а2, а3. получить целочисленный массив в[1..3, 1..3], для которого b[i,j]=ai-3aj....
аьвтчьвь
15.11.2022 00:42
Файл размером 1000 кбайт передается через некоторое соединение в течение 1 минуты. определите размер файла (в кбайт),который можно передать чрез это соединение за 36 секунд. в ответе...
amina24569
15.11.2022 00:42
Для какого из значений числа x истинно высказывание: не (x 5) и (x 6)? 1)6 2)5 3)4 4)3...
999999апро
10.02.2022 06:41
Составьте программу, отыскивающую наименьший общий составной делитель натуральных чисел n и м. (обязательно использование подпрограмм)...
kiry42rus
10.02.2022 06:41
Сравните компьютеры 49 : 1.процессор: amd a10-7700k 3.4 ггц 2.процессор: amd a8-7600 видеокарта: radeon r7 240 видеокарта: radeon r7 240 объём hhd 500 гб объём hhd 500 гб оперативная...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
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.