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

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

👇
Ответ:
Nightmare5467
Nightmare5467
02.11.2022

var

  s : string;

  flag : boolean;

  i, c : integer;

begin

  readln (s);

  c := 0; flag := false;

  for i := 1 to length (s) do

  begin

    if flag then

    begin

      if s[i] = ' ' then flag := false;

    end

    else

      if s[i] <> ' ' then

      begin

        inc (c);

        flag := true; 

      end;

    begin

    end;

  end;

  writeln (c);

end.

4,6(40 оценок)
Открыть все ответы
Ответ:
slaider1123
slaider1123
02.11.2022
1. закончите предложение: «моделью называют объект, имеющий…» - существенные признаки объекта-оригинала 2. закончите предложение: «можно создавать и использовать …» - разные модели объекта 3. укажите примеры информационных моделей: - карта - график зависимости расстояния от времени - выкройка фартука - схема метро 4. укажите примеры знаковых информационных моделей: - словесное описание - формула 5. отметьте пропущенное слово: «формула для вычисления площади прямоугольника является примером … модели» - знаковой 6. отметьте пропущенное слово: «атлас автомобильных дорог является примером … модели» - смешанной 7. укажите пары объектов, о которых можно сказать, что они находятся в отношении «объект – модель»: - болт – чертеж болта - мелодия – нотная запись мелодии
4,4(42 оценок)
Ответ:
Shkolaetopolniyad
Shkolaetopolniyad
02.11.2022
1)var n,k: integer; begin   write('число:   ');   readln(n);   k: =0;   repeat     k: =k*10+n mod 10;     n: =n div 10;   until n=0;   writeln('новое число:   ',k); end. 2) var n,k,m: integer; begin  write('двоичное число:   ');   readln(n);   k: =1;   m: =0;   repeat    m: =m+k*(n mod 10);     n: =n div 10;     k: =k*2;   until n=0;   writeln('десятичное число:   ',m); end.
4,7(81 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ