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

Записать условия операции,в результате которых при введении в ячейку А5 пароля "Информатика" в ячейке B5 отразится запись " Современная наука,а в противном случае отразится " пароль не верен".

Показать ответ
Ответ:
2Alinochka2
2Alinochka2
24.09.2022 07:43
А листик тебе Почтой России выслать или через знакомых передать? В задачке можно вывести формулу, но мне лень, сделаем через цикл.

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём ИЗ "...\Отделы\Обмен\";

ПЕР
  дрожжи, процент, расход, дней: ВЕЩ;
  сч: ЦЕЛ;

УКАЗ
  дрожжи := 120;
  Вывод.Цепь("p: "); процент := Приём.Число();
  Вывод.Цепь("Tx: "); расход := Приём.Число();
  Вывод.Цепь("Tt: "); дней := Приём.Число();
  ОТ сч := 1 ДО дней ВЫП
    дрожжи := дрожжи + дрожжи * (процент / 100) - расход
  КОН;
  Вывод.ЧВещ("^%g", дрожжи, 0, 0, 0)

КОН Задание.
0,0(0 оценок)
Ответ:
FUNNIAO
FUNNIAO
29.01.2022 08:39
Var
  i,n,s:byte; //Здесь мы описываем переменные i- флаг, n - наше число N, s- переменная "деления"
label l1; // Здесь мы 
begin
     l1:i:=0; //Установка метки на начало программы и установка флага на первоначальное значение - НЕТ
     repeat //проверка N на подлинность
     if i=1 then
     write('Не верный ввод данных!Повторите ввод:') 
     else
     write('Введите номер N:'); // Условие при котором в первый раз выводится предложение где нас просят ввести N, а если же мы её ввели не правильно выводится ошибка и опять нас просят ввести N так продолжается пока мы не введем правильный N
     readln(n);
     i:=1; // Установка флага - ДА
     untill  (n>=1) and (n<100); // Ограничения N
     writeln('Ваше множество:');// Вывод множества;
     for i:=n to 99 do // из условия следует что числа будут в диапазоне от 1 до 99 т.к они натуральные и двухзначные 
     begin
         s:=i mod 11; //Условие при котором Цифры повторяются  т.е. делятся на 11
         if (s<>0) then write(i,'; '); // Проверка условия выше;
     end;
     writeln;
     write('Повторить программу?(1-Да, 0-Нет)-');// Предложение о том сделать ли еще раз программу
     read(i);
     if (i=1) then goto L1; // опять же установка флага и переход к метке L1; если же условие не выполняется, то конец программы
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота