М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
anaragaitova1
anaragaitova1
24.05.2022 21:47 •  Информатика

Создайте программу, которая подсчитывает количество введённого символа во введённой строке.
Задача должна быть выполнена с использованием преобразования данных.

👇
Ответ:
goldlena1979
goldlena1979
24.05.2022

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

4,4(66 оценок)
Открыть все ответы
Ответ:
sehya72
sehya72
24.05.2022
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
4,6(65 оценок)
Ответ:
nazmiburkanova7
nazmiburkanova7
24.05.2022
Я на винде несижу уже давно, поэтому могу ответить не правильно.
1 чтобы создать 7zip:
- скачать 7zip
- выделить необходимый файл(ы)
- правая кнопка по ним
- в панеле щелк на 7-zip
- создать архив...
2 отличие в том, что SFX - самораспаковывающийся архив.
3 чтобы создать зашифрованый архив, необходимо в процессе создания архива щелкнуть по ZIP => Дополнительно => Установить пароль
4 в процессе создания архива:
- УСтановить разделение тома с размером (выбрать какой)
- Галка на "Добавить информацию для восстановления"
- Галка на "Протестить"
4,8(26 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ