Вывести на экран номер первой компоненты, значение которой меньше 210400, но больше 100000, если файл существует

@Sukhr_A · Регистрация: 21.10.2009

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

Если на диске А в каталоге VVV имеется файл 'R5.INC',то вывести на экран номер первой компоненты, значение которо меньше 210400, но больше 100000. Если номер этой компоненты меньше 50, то файл стереть. Компоненты файла типа Longint.

@John_Pa9JIbHuK · 21.10.2009, 22:57

Pascal

uses crt;
var
f:text;
k:longint;
i:integer;
begin
assign(f,'vvv\R5.INC');
reset(f);
while not eof(f) do
begin
readln(f,k);
if (k>100000)and(k<210400) then
begin
writeln(k);
break;
end;
inc(i);
end;
close(f);
if i<50 then erase(f);
end.

@Sukhr_A · 21.10.2009, 23:00 **[ТС]**

спасибо большое!ААААААААААААААААААААААААА

@John_Pa9JIbHuK · 21.10.2009, 23:03

Сообщение от Sukhr_A

А ЭТО ВСЁ РЕШЕНИЕ?

А что тебе еще упаковать это все в подарочную обертку??

@Sukhr_A · 21.10.2009, 23:12 **[ТС]**

ХАХАХАХ,СПАСИБО БОЛЬШОЕ!

Новые блоги и статьи
Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .
Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .	Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .	Введение в модели и алгоритмы машинного обучения InfoMaster 12.01.2025 Машинное обучение представляет собой одну из наиболее динамично развивающихся областей искусственного интеллекта, которая фокусируется на разработке алгоритмов и методов, позволяющих компьютерам. . .

@Sukhr_A 0 / 0 / 0 Регистрация: 21.10.2009 Сообщений: 3
		1
	Вывести на экран номер первой компоненты, значение которой меньше 210400, но больше 100000, если файл существует 21.10.2009, 22:38. Показов 1405. Ответов 4 Метки нет (Все метки) Если на диске А в каталоге VVV имеется файл 'R5.INC',то вывести на экран номер первой компоненты, значение которо меньше 210400, но больше 100000. Если номер этой компоненты меньше 50, то файл стереть. Компоненты файла типа Longint. 0

@Sukhr_A 0 / 0 / 0 Регистрация: 21.10.2009 Сообщений: 3
	21.10.2009, 23:00 [ТС]	3
	спасибо большое!ААААААААААААААААААААААААА 0

@John_Pa9JIbHuK Добрый самаритянин 1107 / 622 / 139 Регистрация: 31.03.2009 Сообщений: 2,567
	21.10.2009, 23:03	4
	Сообщение от Sukhr_A А ЭТО ВСЁ РЕШЕНИЕ? А что тебе еще упаковать это все в подарочную обертку?? 0

@Sukhr_A 0 / 0 / 0 Регистрация: 21.10.2009 Сообщений: 3
	21.10.2009, 23:12 [ТС]	5
	ХАХАХАХ,СПАСИБО БОЛЬШОЕ! 0

Вывести на экран номер первой компоненты, значение которой меньше 210400, но больше 100000, если файл существует

Решение