Дан текстовый файл, состоящий из первых десяти натуральных чисел. Вывести на экран первые пять. - Pascal ABC

Pascal ABC

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

Войти

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

Рейтинг 4.88/8:

@Baga_X 0 / 0 / 0 Регистрация: 08.02.2012 Сообщений: 9

	Дан текстовый файл, состоящий из первых десяти натуральных чисел. Вывести на экран первые пять. 28.02.2012, 22:22. Показов 1674. Ответов 1 Метки нет (Все метки) Помогите плиз 0

Лучшие ответы (1)

Сообщение: #2540245

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

28.02.2012, 22:22

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

Вывести на экран и в текстовый файл n первых чисел Фибоначчи
Вывести на экран и в текстовый файл n первых чисел Фибоначчи(n вводится с клавиатуры).Каждое число последовательности из чисел Фибоначчи,...

Сформировать текстовый файл input.txt, состоящий из целых чисел, вывести его на экран
Задача 9. Сформировать текстовый файл input.txt, состоящий из целых чисел, вывести его на экран, в файл output.txt записать количество...

Вывести на экран первые пять совершенных чисел
Помогите пожалуйста с программой. 32. Вывести на экран первые пять совершенных чисел (функция возвращает 1, если число совершенное, 0 – в...

rezak

6 / 6 / 8

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

Сообщений: 31

29.02.2012, 18:52

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

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
var
f:text;
i,n:integer;
 
begin
assign(f,'d:\file.txt');
reset(f);
for i:=1 to 5 do
begin
read(f,n);
write(n,'|');
end;
close(f);
end.

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

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

29.02.2012, 18:52

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

Найти и вывести на печать пять первых натуральных чисел, которые делятся на p и на q без остатка
Найти и вывести на печать пять первых натуральных чисел, которые делятся на p и на q без остатка

Найти и вывести на печать пять первых натуральных чисел, которые деляться на P и на Q без остатка
Найти и вывести на печать пять первых натуральных чисел, которые деляться на P и на Q без остатка

Вывести на экран первые пять квадратов четных чисел
Вывести на экран первые пять квадрата всех четных чисел от 1 до n, увеличивая шаг на 2

Вывести на экран таблицу квадратов первых десяти положительных чисел
program prog; var i:integer; begin for i:=1 to 10 do Writeln('i*i'); end. так правильно??

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

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

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

Новые блоги и статьи Все статьи Все блоги /
влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .

Наверх