Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
noxxxxxx
0 / 0 / 0
Регистрация: 14.05.2013
Сообщений: 21
#1

В последовательности заменить 0 числа кратные р - Free Pascal

16.05.2013, 13:22. Просмотров 271. Ответов 1
Метки нет (Все метки)

Дано натуральное число p, целые числа а1,а2..а67. В последовательности заменить 0 числа кратные р.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.05.2013, 13:22
Я подобрал для вас темы с готовыми решениями и ответами на вопрос В последовательности заменить 0 числа кратные р (Free Pascal):

Найти в массиве все элементы, кратные 3, и заменить их нулями
Здравствуйте! Помогите сделать в паскале!!! Дан одномерный массив, элементы...

Заменить в матрице элементы, кратные трём, на произведение их индексов.
1)Напишите программу формирования массива размером 5x5 с помощью датчика...

Среди заданной последовательности целых чисел найти нечетные числа кратные трем
Среди заданной последовательности целых чисел найти нечетные числа кратные трем.

Напечатайте все двухзначные числа, которые кратные 5 и не кратные 3
в паскаль. помогите пожалуйста 1) Напечатайте все двухзначные числа, которые...

Дан массив из указателей на целые числа, вывести все члены данного массива, кратные 3, кратные 5
Дан массив из указателей на целые числа вывести все члены данного массива...

В последовательности все числа меньшие двух заменить нулями и получить сумму членов, принадлежащих интервалу
Даны натуральное число n, действительные числа a1,a2,a3,..., an. В этой...

1
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,652
Записей в блоге: 1
16.05.2013, 13:55 #2
Лучший ответ Сообщение было отмечено noxxxxxx как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Const n=67;
Var A:array[1..n] of integer;
    i,p:integer;
Begin
    writeln('Исходная');
    For i:=1 to n do
    Begin
      A[i]:=random(31);
      write(A[i]:3);
    End;
    writeln;
    write('Введите p: ');readln(p);
    writeln('Преобразованная');
    For i:=1 to n do
    Begin
      if A[i] mod p = 0 then A[i]:=0;
      write(A[i]:3);
    End;
    readln;
End.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.05.2013, 13:55
Привет! Вот еще темы с решениями:

Заменить элементы файла кратные трем
Создать файл, состоящий из N целых чисел. Вывести содержимое этого файла на...

Все элементы массива, кратные числу 10, заменить 0.
Дан массив целых чисел. а)Все элементы, кратные числу 10, заменить 0.

Вычислить произведение тех членов последовательности которые кратные P.
Помогите разобраться с задачей: Заданы целые числа K, P и последовательность...

Все элементы массива, кратные числу 10, заменить нулем
Дан массив целых чисел. Все элементы, кратные числу 10, заменить нулем


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru