Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal Если максимум и минимум массива одновременно являются чётными, то разделить их на два, иначе поменять местами первый и предпоследний столбец массива https://www.cyberforum.ru/ pascal/ thread708517.html Ввести двумерный массив A (NxM). Вывести его Если максимум и минимум массива одновременно являются чётными, то разделить их на два, иначе поменять местами первый и предпоследний столбец массива.	Найти в тексте слова, в которых все согласные буквы расположены в алфавитном порядке Pascal В текстовом файле input.txt записан русский текст. Найти в тексте слова, в которых все согласные буквы расположены в алфавитном порядке, записать их заглавными буквами и указать после каждого такого слова в скобках согласные буквы. Полученный текст записать в файл output.txt. Весь текст, кроме найденных слов, должен остаться неизменным, включая и знаки препинания.
Pascal Вывести в порядке, обратном к алфавитному, слова текста, в которых не повторяется первая буква Дана строка, содержащая русский текст. Вывести в порядке, обратном к алфавитному, слова текста, в которых не повторяется первая буква, в остальных словах удалить гласные и продублировать звонкие согласные буквы. ( Звонкие согласные : бвгжздйлмнр ) https://www.cyberforum.ru/ pascal/ thread708488.html	Pascal Упорядочить элементы столбцов по невозрастанию суммы цифр. Использовать процедуры и функции Дана целочисленная матрица {Aij}i=1...n;j=1..n , n<=100. Если в матрице нет строк с нулевой суммой элементов, и в каждом столбце есть простые числа, упорядочить элементы столбцов по невозрастанию суммы цифр. Использовать процедуры и функции! https://www.cyberforum.ru/ pascal/ thread708486.html
Удалить из последовательности числа, начинающиеся цифрой 2, а среди оставшихся продублировать числа, сумма цифр которых равна 25 Pascal Дана последовательность натуральных чисел {Aj}j=1...n (n<=10000). Удалить из последовательности числа, начинающиеся цифрой 2, а среди оставшихся продублировать числа, сумма цифр которых равна 25.	Pascal Найти наибольший и наименьший по абсолютной величине элементы матрицы и поменять их местами https://www.cyberforum.ru/ pascal/ thread708483.html Дана целочисленная матрица {Aij}i=1..n,j=1..m (n,m<=100). Найти наибольший и наименьший по абсолютной величине элементы матрицы и поменять их местами.
Pascal Упорядочить последовательность с простыми числами Дана последовательность натуральных чисел {aj}j=1...n (n<=10000). Если в последовательности нет ни одного простого числа, упорядочить последовательность по неубыванию. https://www.cyberforum.ru/ pascal/ thread708482.html	Упорядочить последовательность по неубыванию наименьшей цифры числа Pascal Ввести последовательность натуральных чисел {Aj}j=1...n (n<=1000). Упорядочить последовательность по неубыванию наименьшей цифры числа, числа с одинаковыми наименьшими цифрами дополнительно упорядочить по неубыванию суммы цифр числа, числа с одинаковыми наименььшими цифрами и одинаковыми суммами цифр дополнительно упорядочить по неубыванию самого числа.
Pascal Найти сумму всех четных элементов двумерного массива целых чисел А[10,10] https://www.cyberforum.ru/ pascal/ thread708405.html Ребята помогите пожалуйста написать программу на Паскале) Найти сумму всех четных элементов двумерного массива целых чисел А.Массив должен вводится во время работы программы. Заранее Большое Спасибо))	Pascal Для матрицы вычислить выражение Y=M1M5+M2M4+...+M5M1, где М[k]-значение наибольшего элемента в k-ом столбце матрицы помогите пожалуйста с решением задачи. Для матрици А (4 строки, 5 столбцов) вычислить выражение Y=M1M5+M2M4+...+M5M1, где М-значение наибольшего элемента в k-ом столбце матрици. Для поиска наибольшего элемента в произвольном столбце матрицы использовать процедуру. https://www.cyberforum.ru/ pascal/ thread708354.html
Pascal Минимальный по модулю элемент и замена им нечетных чисел Написать процедуру и функцию, которая находит в массиве минимальный по модулю элемент и заменяет им все элементы с нечетными номерами. В основной программе массив из 15 элементов при помощи чисел проверить работу подпрогармм. Темой ошибся. Извините. Щас код напишу. const n=15 var a:array of integer; i,imin:byte; begin for i:=1 to n do begin a:=random(31)-15;	Pascal Метод Гаусса с получением средне арифметического из имеющегося исходника сделать - метод Гаусса с получением средне арифметического корней program Gaus; uses crt; var k,n,i,j,k1,kn:integer; r:real; x,b,d,f:arrayof real; a,c:arrayof real; label 1; begin https://www.cyberforum.ru/ pascal/ thread708184.html

Kodzaev

3030 / 1916 / 1649

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

Сообщений: 3,060

25.11.2012, 17:29

Определить в файле произведение остатков от деления на 4 тех элементов, которые не кратны четырём - Pascal - Ответ 3752654

25.11.2012, 17:29. Показов 1482. Ответов 1

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

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

Решение

Pascal

Var
  f: File of Integer;
  i,k: Byte;
  x: Integer;
  p: Longint;
BEGIN
Assign(f,'input.dat');
Rewrite(f);
Writeln('Введите 13 элементов:');
For i:=1 to 13 do
begin
  Readln(x);
  Write(f,x);
end;
Reset(f);
p:=1;
For i:=0 to Filesize(f)-1 do
begin
  Seek(f,i);
  Read(f,x);
  If x mod 4<>0 Then
  begin
    Inc(k);
    p:=p*(x mod 4);
  end;
end;
Close(f);
If k=0 Then Writeln('Произведение = 0')
Else
Writeln('Произведение = ',p);
Readln
END.

Вернуться к обсуждению:
Определить в файле произведение остатков от деления на 4 тех элементов, которые не кратны четырём Pascal

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

25.11.2012, 17:29

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

Определить в массиве произведение остатков от деления на 4 тех элементов, которые не кратны четырем
Помогите пожалуйста написать программы к задачам. Я понимаю что на форуме много подобных задач, но...

Определить в матрице произведение остатков от деления на 4 тех элементов, которые не кратны четырем
ребят, помогите пожалуйста решить задачку. Ввести двумерный массив А (3x5) . Определить в нем...

Определить в массиве произведение остатков от деления на 3 тех элементов, которые не кратны трём.
Ввести одномерный массив из 14 элементов. Определить в нём произведение остатков от деления на 3...

	25.11.2012, 17:29

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

25.11.2012, 17:29

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

Определить в файле сумму остатков от деления на 3 тех элементов, которые не кратны трем
Ввести файл f из 14 элементов. Определить в нем сумму остатков от деления на 3 тех элементов,...

Определить в массиве сумму остатков от деления на 3 тех элементов, которые не кратны трём
3)Ввести одномерный массив A из 14 элементов. Определить в нём сумму остатков от деления на 3 тех...

Определить в массиве сумму остатков от деления на 3 тех элементов, которые не кратны трём
Ввести двумерный массив A 3х4 . Определить в нём сумму остатков от деления на 3 тех элементов,...

Ввести двумерный массив A3 5× . Определить в нём произведение остатков от деления на 4 тех элементов, которые
Нужен код программы и желательно блок-схему

Наверх