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

Как известно, в команде по квиддичу
3 охотника, 2 загонщика, ловец и
вратарь. когда рон уизли стал
старостой гриффиндора, он решил
привлечь к тренировкам как можно
больше учеников, а для этого
сформировать как можно больше команд. для подсчёта числа потенциальных команд рон построил
следующую таблицу в ms excel:
1) какое число окажется в ячейке d6, предназначенной для вывода итогового количества команд?
2) какое количество команд в действительности можно сформировать при имеющихся данных?
3) как следует изменить формулу в d6, чтобы она при любых данных давала корректный результат?

Показать ответ
Ответ:
marypawgamesyt
marypawgamesyt
06.07.2020 01:19

а)

9

5

3

б)

5 + 32

5 * 4 = 20

Объяснение:

Writeln () и write () - операторы вывода в Паскале, т.е. служат для вывода на экран каких-либо данных.

Если нужно, чтобы каждый вывод начиналась с новой строки, то надо использовать writeln (), если нет - то write ().

Выводимый текст заключается в одиночные кавычки и выводится без изменений (Write ('5 + 3') → Вывод: 5 + 3).

Для вывода значения переменной или числа - указывается просто имя переменной или число.

Разделителем текста, переменной и т.д. служит запятая.

Если есть действия с числами или переменными ( 4*5 или a*b) вычисляется результат.

0,0(0 оценок)
Ответ:
ipadsanya
ipadsanya
13.10.2021 17:56
//1. Переборный алгоритм Евклида (цикл repeat)

var a, b, с: integer; 

begin

  write('Введите два числа: ');

  readln(a, b);

  if a < b then с := a + 1 else с := b + 1;

repeat с := с - 1

  until (a mod с = 0) and (b mod с = 0);

  write('NOD = ', с)

end.

 

//2. Алгоритм с вычитанием (цикл while)

var  a, b: integer;

begin

  write('a = ');

  readln(a);

  write('b = ');

  readln(b);

  while a <> b do

    if a > b then

      a := a - b

    else

      b := b - a;

  writeln('NOD = ', a);

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота