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

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

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

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

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

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

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

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

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

1
CodeR
Фрилансер
3379 / 2781 / 2999
Регистрация: 08.02.2012
Сообщений: 6,688
Записей в блоге: 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, действительные числа a1,a2,a3,..., an. В этой...

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

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


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

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

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