Коррекция кода. Программа, которая находит минимальное значение среди чисел кратных 3

16.12.2012, 14:05. Показов 1609. Ответов 0

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

Студворк — интернет-сервис помощи студентам

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program obrazec;
uses crt;
var k,ch:integer;f:text; min,z:real;
begin
clrscr;
assign (f,'C:\f.txt'); reset(f);
//min:=0;
while not eof(f) do
begin
read (f,ch);
while (ch mod 3)= 0 do
min:=ch;
if ch>min then min:=ch;
  end;
writeln(ch); 
 
close(f);
readln;
end.

почему ничего не выводит?
что- то запутался...

Добавлено через 12 часов 29 минут

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program obrazec;
 
uses
  crt;
 
var
  k, ch: integer;f: text; min, z: real;
 
begin
  clrscr;
  assign(f, 'C:\f.txt'); reset(f);
  while not eof(f) do
  begin
    read(f, ch);
    if (ch mod 3) = 0 then
      min := ch;
    if ch < min then min := ch;
  end;
  writeln(min); 
  
  close(f);
  readln;
end.

ап...

Programming

Эксперт

39485 / 9562 / 3019

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

Сообщений: 41,671

Блог

16.12.2012, 14:05

Ответы с готовыми решениями:

составить программу, которая находит максимальное и минимальное значение среди элементов одномерного массива Y, которая состоит из N целых чисел
составить программу, которая находит максимальное и минимальное значение среди элементов одномерного массива Y, которая состоит из N целых...

Программа которая находит минимальное из введенных пользователем чисел
Нужна программа, которая находит минимальное из введенных пользователем чисел. Количество вводимых чисел и сами числа определяет...

Перегрузка функций: определите функцию, которая находит минимальное значение из двух чисел
Определите две функции с одним именем для решения задачи. Определите функцию, которая находит минимальное значение из двух чисел...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

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

Сообщений: 28,500

Блог

16.12.2012, 14:05

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

Составить программу которая находит max значение среди элементов линейной таблицы Y которая состоит из N целых чисел и у которых непарные индексы.
Составить программу которая находит максимально значение среди элементов линейной таблицы Y которая состоит из N целых чисел и у которых...

Написать программу, которая находит максимальное значение и умножает его на минимальное значение
Дан двумерный массив, размером n*m. Написать программу, которая находит максимальное значение и умножает его на минимальное значение.

Найти минимальное значение среди положительных элементов массива, кратных 4
Ввести массив целых чисел С(n). Найти минимальное значение среди положительных элементов массива, кратных 4. Поставить минимум на место...

Функция, которая находит минимальное значение
Вобщем в программе вычесляются значения косинуса на интервале Нужна функция которая найдет найменьшее из этих значений #include...

Программа которая находит минимальное число слагемых
Составить алгоритм и программу, которые находят минимальное число слагаемых в сумме членов ряда, при котором эта сумма станет больше 120, и...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

Наверх