Moderator
Статус: Не в сети Регистрация: 27.06.2008 Откуда: Таганрог
Если я правильно понимаю, то Pascal ABC от обычного паскаля не особо отличается, тогда используем строчный тип данных (string) и integer и команды strtoint и inttostr перевода из одного в другой, дальше написать код дело на 5-10 минут. Т.е. ввели число, перевели в string, считали нужные символы в числе и вывели их, либо обратно посимвольно в integer и проверили на чётность (делим на 2 и смотрим остаток равен 0 или нет, если правильно помню команда выуживания остатка mod), ну или третье сравнили между собой 3 числа.
Member
Статус: Не в сети Регистрация: 07.07.2011 Откуда: Уфа Фото: 86
Еще задачи, помогите с решение кому не тяжело:
Найти все симетричные числа (палиндромы) из промежутка от A до B (А и B вводятся с клавы).
Дан массив целых чисел, состоящий из 20 элементов.Заполнить его с клавиатуры.Определить, есть ли 2 пары соседних элементов с одинаковыми знаками.Вывести номера всех элементов, значения которых кратны 7.
В массиве из n элементов, заполненым случайным образом, разделить все элементы с четными номерами, на среднее арифметическое первых 5 элементов массива.
Advanced member
Статус: Не в сети Регистрация: 10.04.2003 Откуда: Москва
Найти все симметричные числа: а. в цикле проверять все числа из данного диапозона б. проверка: 1. преобразовать число в строку, почучить строку A 2. скопировать текст строки в другую строку (B), при копировании брать из начала_в_конец, а класть из_конца_в_начало. Т.е. переставить символы. 3. сравнить строки A и B. При равенстве '+1'
При этом можно применить 'ускорители' по старшему символу(старшим символам), но очень хлопотно.
Дан массив целых чисел, состоящий из 20 элементов.Заполнить его с клавиатуры. Надеюсь, это трудность можно выполнить самостоятельно?
Определить, есть ли 2 пары соседних элементов с одинаковыми знаками. Вариантов масса. От тупого логического XOR до знакового умножения и сравнения с 0. В цикле перебирать все элементы массива и над i и i+1 выполнять проверку на знак.
Вывести номера всех элементов, значения которых кратны 7 Для этого надо выполнить "Переменная mod 7". Если 0, то кратно 7.
В массиве из n элементов, заполненым случайным образом, разделить все элементы с четными номерами, на среднее арифметическое первых 5 элементов массива. а. вычислить среднее арифметическое первых 5 элементов массива. б. пройтись по массиву и для всех элементов, которые "mod 2"=0 выполнить деление на среднее число, вычисленное ранее, записать назад в массив.
В предложении S заменить все гласыне буквы на "в" а. сесть и руками составить список всех гласных букв. б. пройтись по строке и каждый символ искать в таблице (пункт а); при совпадении заменять.
помогите пожалуйста решить задачу в паскале ABC: задан текстовый файл содержащий некоторый фрагмент документа(или документ в целом),преобразовать документ к следующему виду: выровняв по ширине строки файла до заданного значения. Порядок выравнивания следующий: первое слово прижимается к началу строки,последнее слово к правому краю строки,внутри строки слова отделяются пробелами пропорционально количеству слов.
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 6
Вы не можете начинать темы Вы не можете отвечать на сообщения Вы не можете редактировать свои сообщения Вы не можете удалять свои сообщения Вы не можете добавлять вложения