В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
ELOGE
ELOGE
14.08.2021 17:50 •  Информатика

Втаблице запросы и количество найденных по ним страниц
некоторого сегмента сети интернет.

Показать ответ
Ответ:
kakhaeva02
kakhaeva02
04.09.2021 16:31
Набрать воды в 3 литровый кувшин.
Вылить содержимое в 8 литровый кувшин
набрать воды в 3 литровый кувшин.
Вылить содержимое в 8 литровый кувшин
набрать воды в 3 литровый кувшин
Вылить содержимое в 8 литровый кувшин, оставив один литр в 3 литровом кувшине.
Опустошить 8 литровый кувшин
Вылить содержимое 3 литрового кувшина в 8 литровый
Набрать воды в 3 литровый кувшин
Вылить содержимое в 8 литровый кувшин
Набрать воды в 3 литровый кувшин
Вылить содержимое в 8 литровый кувшин
Вот весь алгоритм.
Поблагодари, если
0,0(0 оценок)
Ответ:
NeZnaiYProsto
NeZnaiYProsto
28.06.2020 19:23
// Напишите программу, которая в последовательности натуральных чисел определяет количество
//чисел, кратных 3. Программа получает на вход количество чисел в
//последовательности, а затем сами числа. В последовательности всегда имеется число,
//кратное 3. Количество чисел не превышает 100. Введённые числа не превышают 300.
//Программа должна вывести одно число - количество чисел, кратных 3.

Var  i,j,x  :word;
     n      :integer;
begin
  writeln('Введите количество цифр в последовательности');
  Readln (j);
  if j>100 then //Проверка накличество чисел в последовательности
      begin
        writeln ('По условия задачи цифр не должно быть более 100');
        writeln ('Введите количесво цифр еще раз');
        readln (j);
      end;
  for i:=1 to j do
  begin
    Writeln ('Введите ',i,' число');
    readln (n);
    if n>300 then //проверка максимального значения числа
      begin
        writeln ('Данное число не удовлетворяет условиям задачи (>300');
        writeln ('Введите его еще раз');
        readln (n);
      end;
      n:= n mod 3;
      if n=0 then x:=x+1;
      end;
   Writeln ('Количество чисел, кратных 3:');
   Writeln (x);
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота