Pascal ABC

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Pascal ABC Заменить все малые буквы одноименными большими заменить все малые буквы одноименными большими. https://www.cyberforum.ru/ pascalabc/ thread376080.html	Pascal ABC Определить номер первого нуля в массиве 4)Составьте программу для решения одной из следующих задач. 4.7. Определить номер первого нуля в массиве А или выдать сообщение, что нулей в массиве нет;
Pascal ABC Найти количество отрицательных элементов в двух массивах const max=100000000; type a=arrayof integer; var massA,massB:a; otvet:integer; procedure massivAB(var m:a; c:char; otvet:integer); var i,n:integer; begin randomize; write('Введите количество элементов массива ',c,': '); readln(n); writeln('Массив ',c,': '); https://www.cyberforum.ru/ pascalabc/ thread375978.html	Pascal ABC Какое значение имела целочисленная переменная n перед началом выполнения алгоритма? https://www.cyberforum.ru/ pascalabc/ thread375963.html Нужно срочно сделать олимпиаду сегодня до 13:00 по МСК Помогите плз. Задача №6 Петя отсканировал 8 изображений одинакового размера и с одинаковыми параметрами сканирования (разрешением и глубиной цвета). Выбранный им формат записи файла хранит несжатое растровое изображение и дополнительную информацию, причем объем дополнительной информации не зависит от объема файла и всегда составляет 128...
Pascal ABC Задача про счастливые билетики. Определить, является ли данный шестизначный номер автобусного билета счастливым. Примечание. Номер считается счастливым, если сумма трёх первых цифр совпадает с суммой трёх последних цифр. Как моно решить задачу с помощью циклов (именно циклов) в паскале АВС???	Pascal ABC Даны три целых числа, найти среднее из них. Средним называется число, которое больше наименьшего из данных чисел, но меньше наибольшего https://www.cyberforum.ru/ pascalabc/ thread375931.html Кто может решить данную задачку с помощью циклов в паскале АВС? Даны три целых числа, найти среднее из них. Средним называется число, которое больше наименьшего из данных чисел, но меньше наибольшего.
Pascal ABC Определить каких среди чисел больше: положительных или отрицательных Как данную задачу можно решить в паскале АВС при помощи циклов? Последовательно вводятся N целых чисел. Определить каких среди них больше: положительных или отрицательных. https://www.cyberforum.ru/ pascalabc/ thread375930.html	Pascal ABC Найти в диапазоне от А до В все числа, в которых младшая цифра не повторяется помогите пожалуйста! найти в диапазоне от А до В все числа в которых младшая цифра не повторяется (пример: 122 - нельзя, 112- можно)
Pascal ABC Запросить значение элементов одномерного числового массива и вывести его на экран https://www.cyberforum.ru/ pascalabc/ thread375817.html 1)Составьте программу, которая запрашивает значение элементов одномерного числового массива А и выводит его на экран. Она уже есть...далее: uses crt; var a: array of integer; i: integer; begin for i:=1 to 10 do begin	Pascal ABC Решение квадратного уравнения методом бисекции. Подскажите с решением одной небольшой задачки,где я немного запутался. Нужно решить квадратное уравнение методом бисекции (деление отрезка пополам). Самое главное,что дано стандартное уравнение f(x)=ax^2+bx+c. Не дано интервала, это как общий случай. Создал тему в Pascal ABC, потому что сам пока программирую в этой программе. https://www.cyberforum.ru/ pascalabc/ thread375816.html
В одномерном массиве, состоящем из n вещественных элементов, вычислить количество элементов, меньших С. Pascal ABC В одномерном массиве, состоящем из n вещественных элементов, вычислить количество элементов, меньших С.	Pascal ABC Определите значение температуры в градусах Цельсия в градусах Фаренгейта Дано значение температуры Т в градусах Цельсия. Определите значение этой же температуры в градусах Фаренгейта, если данная температура по Цельсий за ТС за Ференгейтом TF, то она связана следующим образом: соотношение ТС-(TF-32) * 5 * 9. Можно ето написать проще: Uses crt; Var t,y,i:integer; Begin ClrScr; t:=1; {начальное значение 1 градус про Цельсию} Repeat y:=t*9 div 5 + 32;{считаем по... https://www.cyberforum.ru/ pascalabc/ thread375750.html

КонецСвета

Почетный модератор

7966 / 3937 / 2464

Регистрация: 30.10.2011

Сообщений: 5,377

01.11.2011, 19:01

В массиве заменить нулями элементы, модуль которых при делении на p дает в остатке q - Pascal ABC - Ответ 2127176

01.11.2011, 19:01. Показов 2338. Ответов 1

Метки (Все метки)

Сообщение было отмечено BOT как решение

Решение

Pascal

uses crt;
var a: array [1..100] of integer;
    i, n, p, q: integer;
label 1;
begin
     writeln ('Введите размер массива');
     readln(n);
1:   writeln('Введите целые числа p,q (p>q>0)');
     readln (p,q);
     if (p<=0) or (q<=0) or (p<q) then
                                  begin
                                  writeln ('Нарушено условие!');
                                  goto 1;
                                  end;
     for i:=1 to n do
     begin
     writeln ('Введите ', i, ' элемент массива');
     readln (a[i]);
     if abs(a[i])mod p=q then a[i]:=0;
     end;
     for i:=1 to n do write (a[i]:4);
end.

Вернуться к обсуждению:
В массиве заменить нулями элементы, модуль которых при делении на p дает в остатке q Pascal ABC

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

01.11.2011, 19:01

Готовые ответы и решения:

В массиве заменить нулями элементы модуль которых при делении на p дает в остатке q
Дан массив из n целых чисел и целые числа p,q (p>q>0). В массиве заменить нулями элементы модуль...

Заменить нулями элементы массива, модуль которых при делении на p дает в остатке q
Люди, пожалуйста помогите мне решить задачу на "C" буду очень благодарен. заранее спасибо....

Массив: В массиве a[1 … 67] заменить нулями члены, модуль которых при делении на p дает в остатке q.
Даны целые числа p, q, a1, …, a67 (p>q≥0). В последовательности a1, …, a67 за- менить нулями...

Заменить нулями члены, модуль которых при делении на p дает в остатке q
не работает:( понимаю в чем ошибка, а как написать что б работало не знаю #include...

	01.11.2011, 19:01

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

01.11.2011, 19:01

Помогаю со студенческими работами здесь

В последовательности заменить нулями члены, модуль которых при делении на p дает в остатке q.
Помогите плиз решить задачу с Абрамова(184). Даны целые числа p, q, a1, ... , a67 ( p > q ≥...

В последовательности заменить нулями члены, модуль которых при делении на А дает в остатке В
Массивы на vba: даны целые Числа N,A,B (A>B>0) и последовательность целых чисел x1,X2,....Xn,...

В последовательности заменить нулями члены, модуль которых при делении на A дает в остатке B
Даны целые числа A, B (A>B>0) и последовательность целых чисел x1, x2, ... , xn; n\leq20. В...

Найти количество членов последовательности, модуль которых при делении на 3 дает в остатке 1. Заменить нулями
Как это реализовать: Найти количество членов последовательности, модуль которых при делении на 3...

Наверх