Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Дан массив из указателей на целые числа, вывести все числа данного массива большие среднего арифметического Дан массив из указателей на целые числа вывести все числа данного массива большие среднего арефметического этого массива Заранее спасибо. https://www.cyberforum.ru/ pascal/ thread1937850.html	Выведите все степени числа k, лежащие в промежутке от l до r, в порядке возрастания Pascal люди как решаються такие задачи ? простой перебор не работает вот задача По заданным l, r и k необходимо вывести все степени числа k в промежутке от l до r, включая границы. Однако Ростиславу не хочется решать эту задачу самостоятельно, ведь он увлекся сетевой игрой в Agar с Глебом. Помогите ему! Входные данные В первой строке входных данных через пробел записаны три целых числа l, r и k...
Pascal Вывести на экран ту матрицу, у которой след (сумма элементов главной диагонали) меньше. помогите ребята.Pascal Даны две квадратные матрицы. Вывести на экран ту из них, у которой след (сумма элементов главной диагонали) меньше. https://www.cyberforum.ru/ pascal/ thread1937704.html	Pascal Найти наименьшее натуральное число, дающее при делении на 3,4,5 соответствующие остатки найти наименьшее натуральное число, дающее при делении на 3,4,5 соответственно остатки 2,3,4. с помощью repeat https://www.cyberforum.ru/ pascal/ thread1937700.html
Определить сумму элементов каждой строки двумерного массива Pascal В прямоугольной матрице размером М*Т, имеющей имя МАS содержаться целые числа. М - число строк, Т - число столбцов. Числа в массив занести с помощью функции Random. Определить и вывести на экран сумму элементов в каждой строке. Определить строку с минимальным значением этой суммы и вывести ее номер на экран.	Pascal Простые числа Вывести n простых чисел, начиная с двойки. 1<N<100. Пример данных. Iput.txt : 5 Out.txt : 2 3 5 7 11 https://www.cyberforum.ru/ pascal/ thread1937674.html
Pascal определить координаты единственного нулевого элемента https://www.cyberforum.ru/ pascal/ thread1937637.html В матрице МТ(6;6) определить координаты единственного нулевого элемента. Если он располагается в верхней половине матрицы, то сделать нулевыми элементы нижней половины. Иначе-верхней. ( чтобы программа была с процедурами и функциями)	Pascal Сформировать множество, включающее в себя только взаимно перпендикулярные прямые 2)Выбрать из М все пары взаимно перпендикулярных прямых; б) сформировать множество P \small \in M, включающее в себя только взаимно перпендикулярные прямые, одна из которых образует с осью Х угол, не превосходящий заданный.
Pascal Сформировать новый текст, в котором строки упорядочены в лексикографическом порядке https://www.cyberforum.ru/ pascal/ thread1937625.html 1)Определить количество строк; б) сформировать новый текст, в котором строки упорядочены в лексикографическом порядке.	Pascal Переделать программу в Pascal ABC https://www.cyberforum.ru/ pascal/ thread1937567.html uses graph; function F1(x:real):real; begin F1:=sin(exp(-x)); end; function F2(x:real):real; begin F2:=cos(exp(-x)); end; var xn,xk,max,min,mx,my,dx,y1:real;
Pascal Разработать схему алгоритма и составить программу вычисления функции при заданных значениях аргументов Разработать схему алгоритма и составить программу вычисления функции при заданных значениях аргументов. Результаты вывести на экран дисплея. Проверьте пожалуйста, правильно ли написал const a=1.45; var y, x : real; k, n: integer; begin x:=1; while x<=1.8 do begin if a<=x then	Pascal Найти сумму элементов 1-ого столбца матрицы, заменить ею последнюю строку матрицы https://www.cyberforum.ru/ pascal/ thread1937431.html Ввести матрицу A(N,N).Найти сумму элементов 1-ого столбца матрицы заменить ею последнюю строку матрицы. Преобразованную матрицу распечатать.

Hitoku

1755 / 1347 / 1407

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

Сообщений: 4,267

14.03.2017, 00:36

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

14.03.2017, 00:36. Показов 3042. Ответов 2

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

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

Решение

Pascal

type p=^integer;
     ar=array[1..100] of p;
     par=^ar;
var pa:par;
    n,i:byte;
begin
     write('Количество элементов = '); readln(n);
     getmem(pa,n*4);
     for i:=1 to n do begin
     new(pa^[i]);
     pa^[i]^:=random(1000);
     end;
     for i:=1 to n do begin
       if (pa^[i]^ mod 5=0) or (pa^[i]^ mod 3=0) then
         write(pa^[i]^:6);
     end;
end.

Вернуться к обсуждению:
Дан массив из указателей на целые числа, вывести все члены данного массива, кратные 3, кратные 5 Pascal

Следующий ответ

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

14.03.2017, 00:36

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

Дан массив из указателей на целые числа, вывести все числа данного массива большие среднего арифметического
Дан массив из указателей на целые числа вывести все числа данного массива большие среднего...

Дан одномерный массив, содержащий целые числа. Использовать доп массивы нельзя. Удалить все элементы, кратные X
#include <iostream> #include <math.h> using namespace std; int main() { setlocale(LC_ALL,...

Вывести все целые числа из диапазона от А до В, кратные 3
с помощью 1)цикл while 2)repeat until

Вывести на экран все целые числа от А до Б ,кратные С
Вывести на экран все целые числа от А до Б ,кратные С.Или подскажите как записать "кратные С"в...

	14.03.2017, 00:36

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

14.03.2017, 00:36

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

Найти третий массив, в который записать сначала все кратные 4 элементы первого массива, а затем все кратные 3
4.Элементы двух массивов – целые числа в пределах от 4 до 29. Найти третий массив, в который...

Вывести все числа, кратные трем, из данного файла
Написать программу, в результате выполнения которой выводятся все числа кратные трем из данного...

Вывести на экран все целые числа из диапазона от А до В, кратные трём
задали 10 задач помогите решить 1) вычислить int(1.3) 2)Найти и объяснить ошибки в следующей...

Вывести на экран все целые числа от a до b, кратные некоторому числу c
вывести на экран все целые числа от a до b кратные некоторому числу c

Наверх