Помогите решить задачу

WwW

Дата: Вторник, 28.04.2009, 21:20 | Сообщение # 1

Знакомый

Группа: Пользователи

Сообщений: 23

Репутация: 0

Замечания: 0%

Статус: Offline

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

Alexander

Дата: Среда, 27.05.2009, 02:32 | Сообщение # 2

Всевышний

Группа: Модераторы

Сообщений: 475

Репутация: 16

Замечания: 0%

Статус: Offline

Code

k:=1;
test:=false
while not E
begin
    ReadLn(f,s);
    if s='' then
       test:=true;
    else if test then
       begin
          k:=k+1;
          test:=false;
       end;
end;

Скажем дружно- нафиг нужно!

AishA

Дата: Пятница, 29.05.2009, 06:29 | Сообщение # 3

Новичок

Группа: Пользователи

Сообщений: 1

Репутация: 0

Замечания: 0%

Статус: Offline

помогите пождалуйста!!!!!!!!!!!!!!

Задание 4 (2вариант)

1. Описать структуру с именем STUDENT, содержащую следующие поля:
• Фамилия и инициалы;
• Номер группы;
• Успеваемость( массив из пяти элементов).
Написать программу, реализующую следующие действия:
• Ввод с клавиатуры данных в массив, состоящий из структур типа STUDENT;
• Вывод фамилий и успеваемости для всех студентов, имеющих оценки только 4 и 5;
• Если таких студентов нет, вывести соответствующее сообщение.

		Четверг, 09.01.2025
	Pascal 4 All