Ryslan090
02.03.2023 02:30

В программі "Lazarus" створити проєкт, який обчислює модуль цілого числа (В прогремме "Lazarus" создать проект, который вычесляет модуль целого числа)​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Privet206
14.08.2022 20:21
От чего зависит производительность жёстких дисков? - От скорости вращения шпинделя. Объема кэш памяти. Механизмов движеня головок.Устройства размещаемые на материнской плате?- Процессор, память, слоты, штекеры, батарейки, радио электронные компоненты, датчики, вентиляторы, радиаторы.Компилятор,транслятор,отладчик- это?- Средства разработки и тестирования приложений для разработчиков. Слово транслятор очень устаревшее, только в школе его упоменают.Какие вопросы решают операционная система?- Массовое привлечение неопытных пользователей в мир ПК. Распределение ресурсов ПК для программ.Программы,работающие в момент включения компьютера- Аппаратные тестовые программы. загрузчики. запуск ОС. 
0,0(0 оценок)
Ответ:
95Laura95
16.11.2022 03:08
Var
  c: set of char;
  i, n: integer;
  s: string;

begin
  c := [];
  write('Введите текст: ');
  readln(s);
  n := 0;
  for i := 1 to length(s) do
    if not (s[i] in c) then
    begin
      include(c, s[i]);
      n := n + 1
    end;
  writeln('Мощность алфавита, использованного для строки, равна ', n)
end.

Тестовый прогон:

Введите текст: В чащах юга жил бы фикус? Да, но фальшивый экземпляр...!
Мощность алфавита, использованного для строки, равна 35

Введите текст: Pi:=3.14159265; D:=Pi*sqr(D)/4;
Мощность алфавита, использованного для строки, равна 22
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота