Создайте программу, которая подсчитывает количество введённого символа во введённой строке. Задача должна быть выполнена с использованием преобразования данных.
Type tBook = record author: string[20]; title: string[30]; year: integer end;
var f1: file of tBook;
function k2000(): integer; { файл должен быт открыт на чтение } var k: integer; book: tBook; begin while not Eof(f1) do begin Read(f1, book); if book.year < 2000 then k := k + 1 end; k2000 := k end;
var B: tbook;
begin Assign(f1, 'books.000'); Rewrite(f1); Writeln('Для книги вводите в трех строках: автор, название, год издания'); Writeln('Введите * для завершения ввода'); repeat Readln(B.author); if B.author[1] <> '*' then begin Readln(B.title); Readln(B.year); Write(f1, B) end until B.author[1] = '*'; Close(f1); Write('Количество книг, изданных до 2000г равно '); Reset(f1); Writeln(k2000); Close(f1) end.
Пример диалога с программой: Для книги вводите в трех строках: автор, название, год издания Введите * для завершения ввода Александр Грин Бегущая по волнам 1984 Эдгар Аллан По Золотой жук 2002 Луи Буссенар Капитан Сорви-голова 1997 Гарри Гаррисон Крыса из нержавеющей стали 2007 А. и Б. Стругацкие Сказка о Тройке 1974 * Количество книг, изданных до 2000г равно 3
Я на винде несижу уже давно, поэтому могу ответить не правильно. 1 чтобы создать 7zip: - скачать 7zip - выделить необходимый файл(ы) - правая кнопка по ним - в панеле щелк на 7-zip - создать архив... 2 отличие в том, что SFX - самораспаковывающийся архив. 3 чтобы создать зашифрованый архив, необходимо в процессе создания архива щелкнуть по ZIP => Дополнительно => Установить пароль 4 в процессе создания архива: - УСтановить разделение тома с размером (выбрать какой) - Галка на "Добавить информацию для восстановления" - Галка на "Протестить"
var
s: string;
i, k: integer;
begin
readln(s);
writeln('Длина строки: ', length(s));
for i := 1 to length(s) do
if s[i] = ' ' then inc(k);
writeln('Количество пробелов: ', k);
writeln('Длина первого слова: ', pos(' ', s) - 1)
end.
Объяснение:
pascal