Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Форум программистов и сисадминов Киберфорум > Форум программистов > Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Социальные группы Поиск Сообщения за день Заказать работу  
Другие темы раздела
Pascal Выяснить, чего в файле больше: русских букв или цифр. Текстовые файлы дан файл, содержащий произвольный текст. Выяснить. чего в нем больше: русских букв или цифр. https://www.cyberforum.ru/ pascal/ thread148146.html Напечатать все буквы, входящие в текст по одному разу Pascal
множестов дан текст из строчных латинских букв, за которыми следует точка. Напечатать все буквы, входящие в текст по одному разу
Pascal Комментарии РЕбят, помогите пожалуйста с комментариями, завтра зачет и спрашивают по каждой строке. Буду очень благодарен за подробые комменты строк. ЗАдание. Провести сортировку последовательности а1, … , аn методом Шелла program shell; uses wincrt; var a: array of integer; i, n, incr, j, x: integer; https://www.cyberforum.ru/ pascal/ thread148122.html Pascal Не получается программа Сделайте кто нить программу пожалуйста СРОЧНО! Только с подробностями как и что, что за буквы и т.д. А то будут спрашивать всё. Короче: "Дано действительное число N (N<=100). Сколько цифр в числе N?" Я эту прогу сделал через if, т.е. если пользователь ввёл 1 цифру, т.е. if a<10 то выводится текст "1 цифра" и т.д., а мне говорит что не правильно, напишите как ещё можно пожалусто, помоему через... https://www.cyberforum.ru/ pascal/ thread148120.html
Сколько раз повторяется элемент в двоичном дереве? Pascal
Дано задание: Используя структуру данных бинарное дерево поиска решить следующую задачу: Дан набор слов. Требуется для каждого слова определить, сколько раз оно встретилось в наборе. Формат входного файла В первой строке входного файла дано целое число N - количество слов в наборе. В последующих N строках даны сами слова набора (по одному на строку). Формат выходного файла В первой строке... 		Pascal Методы сортировки на Паскале https://www.cyberforum.ru/ pascal/ thread148115.html
Закиньте, пожалуйста, тексты программ на Паскале сортировок пузырьком, выбором, Bogosort, блочной сортировки, топологической сортировки
Pascal Нарисовать круг вписанный в квадрат со стороной 100 Плиз составь мне программу в паскале:Нарисовать круг вписанный в квадрат со стороной 100.Изобразить радиус окружности. https://www.cyberforum.ru/ pascal/ thread148114.html Pascal record
Помогите написать код некоторых пунктов задачи. Имеется запись о багаже пассажира (кол-во вещей и общий вес вещей). Необходимо сделать следующее: а) Определить, имеются ли два пассажира, багажи которых совпадают по числу вещей и различаются по весу не более чем на 0,5 кг. б) Выяснить, имеется ли пассажир, багаж которого превышает багаж каждого из остальных пассажиров и по числу вещей и по...
Pascal Определить есть ли в массиве положительные, отрицательные числа и нули https://www.cyberforum.ru/ pascal/ thread148073.html
Дан одномерный массив. Определить есть ли в этом массиве положительные, отрицательные числа и нули. помогите плиз, ничего не соображаю в этих вставках :( 		Pascal Анимация https://www.cyberforum.ru/ pascal/ thread148061.html
Движение закрашенного правильного шестиугольника с заданной с клавиатуры стороной по экрану, заполненному сеткой из закрашенных в случайные цвета кругов, с помощью клавиш управления курсором. Шестиугольник за пределы экрана не выходит. Uses Crt, Graph; Var i,j,h,d,grDriver, grMode, ErrCode, st,s : Integer; p:pointer; size:word; k:char; x,y,err:integer;
Pascal не получается условие
Цилиндрическая деталь должна иметь длину LO и диаметр DO. Допуски равны соответственно XL и XD. Определить одовлетворяет ли норме изготовленная деталь. Помогите хотя бы с условием. Я думаю что такое условие??? Мой вариант: If (LO+Xl)>L {длина изготовителя} then Writeln('не удовл') Else If (DO+XD)>D {диаметр изготовителя} then Writeln('не удовл') Else If (LO+XL)<L then Writeln('не... 		Pascal Решение массивов https://www.cyberforum.ru/ pascal/ thread148055.html
Помогите пожалуйста решить некоторые задачки. Очень уж надо. За ранее спасибо большое. Двумерные массивы: 10.Из полож.элементов матрицы N(10,10) сформировать матрицу M(10,Kmax),располога?я в строки подряд, где Kmax-макс.число полож.элементов строки матрицы N.Записать нули на место отсуствующих элементов. 1.Написать программу, вычисляющую сумму тех элементов матрицы А размером 10х10, номера...
Почетный модератор
64304 / 47599 / 32743
Регистрация: 18.05.2008
Сообщений: 115,181
22.06.2010, 08:04 0

Найти количество удвоенных нечетных чисел среди компонентов файла - Pascal - Ответ 819780

22.06.2010, 08:04. Показов 1677. Ответов 2
Метки (Все метки)
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

uses crt;
var f:file of integer;
    a,i,k,n:integer;
begin
clrscr;
randomize;
write('Сколько чисел ввести в файл? n=');
readln(n);
assign(f,'filef');
rewrite(f);
for i:=1 to n do
 begin
  a:=random(100)+1;
  write(f,a);
 end;
reset(f);
writeln('Содержание файла:');
k:=0;
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
  if(a mod 2=0)and(a mod 4<>0)then k:=k+1;
 end;
close(f);
writeln;
write('Количество двойных нечетных чисел=',k);
readln
end.


Вернуться к обсуждению:
Найти количество удвоенных нечетных чисел среди компонентов файла Pascal
1
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 22.06.2010, 08:04
Готовые ответы и решения:

Найти количество удвоенных нечетных чисел среди компонентов файла
Заполнить файл F целыми числами,полученными с помощью генератора случайных чисел. Найти количество...

Найти количество квадратов нечётных чисел среди компонентов типизированного файла
Здравствуйте! Дан файл f , компоненты которого являются целыми числами Найти: Количество...

Найти произведение квадратов нечетных чисел среди компонентов
Заполнить файл f натуральными числами, полученными с помощью генератора случайных чисел. Найти...

Найти среди компонентов файла количество чисел, которые делятся на 2 но не делятся на 4.
Надо срочно решить несколько задач, моя вечная благодарность решившему прилагается: 1)Составить...

2
22.06.2010, 08:04
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 22.06.2010, 08:04
Помогаю со студенческими работами здесь

Найти и вывести произведение нечетных чисел файла и их количество
Помогите создать программу, формирующую файл nums.dat из целых чисел, вводимых с клавиатуры....

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

Найти количество квадратов нечётных чисел среди компонент файла
-создать файл данных, соответствующий условию задачи. -решить задачу с использованием данных...

Найти количество положительных чисел среди четырёх целых чисел. Если количество положительных чисел больше количества отрицательных,то найти максималь
Найти количество положительных чисел среди четырёх целых чисел. Если количество положительных чисел...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru