Pascal (Паскаль)

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

Войти

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

Другие темы раздела
Pascal сколько элементов в массиве делятся на 3 https://www.cyberforum.ru/ pascal/ thread219575.html ввести массив из 8 чисел подсчитать сколько элементов в массиве делятся на 3 Не надо спама. Если ты его не сам добавляешь, то проверь компьютер на вирусы.	Pascal Двумерный массив 2) Двумерный массив м на н. Переставить К-ый и Л-ый столбец местами. 3)Двумерный массив (квадратная матрица). Упорядочить элементы по возрастанию главной диагонали . 4)Дана квадратная матрица. Упорядочить элементы побочной диагонали по убыванию. 5) Двумерный массив м на н. Найти сумму элементов каждого столбца и произведение элементов каждой строки. 6) Двумерный массив м на н. Строки с...
Pascal вывести на экран все числа, оканчивающиеся на 1 https://www.cyberforum.ru/ pascal/ thread219561.html допустим все integer, и отрицательные тоже	Pascal двумерный массив https://www.cyberforum.ru/ pascal/ thread219559.html Двумерный массив м на н. Найти максимальные и минимальные элементы, переставить их местами.
паскаль Pascal Напишите процедуру рисования графика функции в соответствии с вариантом, указанным в таблице. Предусмотреть вывод оцифрованных координатных осей соответственно области построения, подписей к графику. Рационально расположить элементы рисунка (график, оси, цифры и штрихи масштабирования, подписи) на экране. у=е в степени х нужен код и блок схема	Pascal одномерные массивы https://www.cyberforum.ru/ pascal/ thread219553.html Найти максимальное из отрицательных элементов и минимальное из положительных, поменять эти элементы местами местами.
Pascal паскаль https://www.cyberforum.ru/ pascal/ thread219549.html Дана последовательность, содержащая от 2 до 10 слов, в каждом из которых от 2 до 6 латинских букв; между соседними словами - не менее одного пробела, за последним словом точка. Напечатать все слова, отличные от последнего слова, предварительно преобразовав каждое из них по следующему правилу:оставить в слове только первые вхождения каждой буквы; код и блок-схема.	Матрица Pascal В заданной матрице А(N,N) найти индексы 1-го элемента, превосходящего среднее арифметическое всех элементов. Элементы матриц просматиривать слева направо и сверху вниз. Помогите пожалуйста...
Pascal Проверьте, пожалуйста, программу program domaschnee_zadanie; uses crt; const n=10; label M1,M2,M3; var a:array of integer; x,k,j,buf,max_numer,max_index:integer; p:byte; procedure Procedure1; begin for k:=1 to n-1 do https://www.cyberforum.ru/ pascal/ thread219542.html	Pascal графика паскаль https://www.cyberforum.ru/ pascal/ thread219535.html Текст состоит из 200 символов. Подсчитать, сколько в нем запятых, точек, точек с запятой. код и блок схема.. спасибо заранее
Как разбить введенное число в массив? Pascal допустим дано: 7623 нужно чтоб х1 = 7 х2 = 6 х3 = 2 х4 = 3 !!! не используя динамические массивы !!!	Pascal Двоичная система счисления! на паскале Зрасти... Вот дали РГР ку по информатике не могу ни как написать может поможет кто нибудь... задание вот: построить прямой обратный дополнительный код для любого введенного числа... учитывать и отрицательные числа.. Вот я сам писал у меня чет не то получается может кто нибудь поможет Зарание спасибо... Вот то как я начал: procedure programma; var i,pp,kod,chislo,op,po:integer;... https://www.cyberforum.ru/ pascal/ thread219502.html

MegaAce

332 / 306 / 155

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

Сообщений: 662

24.12.2010, 20:01

Найти сумму нечётных чисел - Pascal - Ответ 1235491

24.12.2010, 20:01. Показов 1349. Ответов 1

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

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

Решение

Pascal

s:=0;
for i:=1 to 8 do
begin
 a[i]:=random(10);
 write(a[i]:3);
 if odd(a[i]) then s:=s+a[i];
end;
writeln;
writeln(s:3);

Вернуться к обсуждению:
Найти сумму нечётных чисел Pascal

Programming

Эксперт

94731 / 64177 / 26122

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

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

24.12.2010, 20:01

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

Вводится последовательность из n целых чисел найти сумму всех нечетных чисел
Вводится последовательность из n целых чисел найти сумму всех нечетных чисел Помогите пожалуйста...

Найти сумму нечетных чисел от 1 до n.
Нужно решить две небольшие задачки=) Пишу прмо с пары =))) 1. Найти сумму нечетных чисел от 1...

Найти сумму всех нечетных чисел от 1 до n
Выполнить необходимую обработку, при этом описать рекурсивную процедуру или функцию, исходя из...

Найти сумму нечетных чисел в интервале от 34 до 78.
Найти сумму нечетных чисел в интервале от 34 до 78.Срочно

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

24.12.2010, 20:01

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

Найти сумму нечётных чисел из отрезка 1;3;...9.
Найти сумму нечётных чисел из отрезка 1;3;...9. На ест.языке I=1 S=0 пока I<9 повторять S=S+I...

Найти сумму 10 нечетных чисел, не используя массив
Написать программу на Pascal. Найти сумму 10 нечетных чисел, без массива.

Найти сумму факториалов всех нечётных чисел от 1 до 30
Найти сумму факториалов всех нечётных чисел от 1 до 30. Для нахождения факториала числа используйте...

Найти сумму положительных нечетных чисел, меньших 100
найти сумму положительных нечетных чисел,меньших 100.

Найти сумму факториалов нечётных чисел от 1 до 9 (с использованием подпрограмм)
1. Нахождение суммы факториалов нечётных чисел от 1 до 9 (с использованием подпрограмм) 2. Дано...

Найти сумму целых положительных нечетных чисел меньших 50
Найти сумму целых положительных нечетных чисел меньших 50

Наверх