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

БЫСТРО
1. Какое число будет выведено вконсоль при выполнении указанного участка кода?
if ('a'<'b') and ('true'>'false')
then write (3+2*2)
else write (42/(3+4))
2.Как называется условный оператор, в котором при выполнении или невыполнении его условия выполняется несколько операторов?

Полный
Сокращённый Составной
3.Какие существуют формы записи условного оператора в языке Pascal?

Выберите один или несколько подходящих ответов

Полная
Развёрнутая
Дополненная
Сокращённая
4.Как называется алгоритм, который помимо следования содержит конструкцию ветвления?

Разветвляющийся

Линейный

Циклический

Вс Из указанных фрагментов программ выберите те, которые дают правильный ответ на во является ли целое число a чётным?
1) iffrac (a/2)=0
then write ('Да')
else write ('Нет');
2) if a mod 2=0

then write ('Да');

3) if a mod 2=1
then write ('Да')
else write ('Нет');
4) if a mod 2=0

then write ('Да')

else write ('Нет');
6. Какой оператор предназначен для записи разветвляющегося алгоритма на языке Паскаль?

Оператор присваивания

Оператор цикла

Условный оператор

Оператор вывода
7.Как называется условный оператор, который записан в составе другого условного оператора?

Вложенный

Вс Свёрнутый

Составной
8.Выберите условные операторы, записанные в сокращённой форме.
Выберите несколько из 4 вариантов ответа:

1) if a<>b
then a:=b;
else write ('равны');

2) if a<>b

then write ('неравны')

3) if a>b
then max:=a
else max:=b;
4) if a>b

then begin

p:=a;
a:=b;
b:=p;
end;
9. Какую форму имеет блок условного оператора на блок-схеме?

Ромб

Параллелограмм

Треугольник

Прямоугольник
10. Какой из фрагментов кода, по заданным величинам трёх углов, отвечает на во может ли существовать треугольник с указанными углами?

1) p:=a+b+c=180;

if p then

then write ('Да')

else write ('Нет');

2) if a

then write ('Да')

elsewrite ('Нет');

3) if (a

and (c

write ('Да')

else write ('Нет');

4) if (a=b) or (b=c)

then write ('Да');

Показать ответ
Ответ:
Даниэлла25111
Даниэлла25111
07.05.2020 17:32
Открываем "Мохнатую азбуку" Бориса Заходера и читаем названия животных на все буквы алфавита.

a. Слово ёж можно зашифровать рисунками жирафа и зебры.

b. Алгоритм расшифровки.
1) смотрим картинку животного.
2) берём его первую букву.
3) берём предыдущую букву.

c. Расшифровать сообщение, которого нет, очень трудно.

d. Нет животных на такие буквы:
Й, Ь, Ы, Ъ, Ю.
Интересная ситуация с буквой Ю. Вот стихи:
Это Южный Ктототам.
Я его придумал сам.
Я вам честно говорю:
Зверя нет на букву Ю!
В одной книге я видел иллюстрацию к этой букве. В качестве Южного Ктототама неожиданно был нарисован... негр.
Таким образом, нельзя закодировать буквы: И, Щ, Ь, Ы, Э.
0,0(0 оценок)
Ответ:
Alisa48329
Alisa48329
22.12.2021 15:41
Заданная уравнением прямая всегда будет гипотенузой прямоугольного треугольника, а его прямой угол всегда будет лежать в точке пересечения осей координат. Таким образом, размещение гипотенузы всегда будет определять четверть, в которой находится треугольник.
Гипотенуза пересекает ось Х в точке с координатами (х1; 0), а ось Y - в точке с координатами (0;y2). Найдем эти координаты, считая коэффициенты a и b в уравнении прямой заданными.
y=ax+b \\ y_1=ax_1+b; \ y_1=0 \to x_1=- \frac{b}{a} \\ y_2=ax_2+b; \ x_2=0 \to y_2=b
Теперь можно определить номера четвертей n, в которых располагается гипотенуза.
n=\begin {cases} 1, \ a<0, \, b0 \\ 2, \ a0, \, b0 \\ 3, \ a<0, \, b<0 \\ 4, \ a0, \, b<0 \end {cases}

var
  a, b: integer;
  f: Text;

begin
  Assign(f, 'input.txt');
  Reset(f);
  Readln(f, a, b);
  Close(f);
  Assign(f, 'output.txt');
  Rewrite(f);
  if a < 0 then
    if b < 0 then Writeln(f, '3') else Writeln(f, '1')
  else
  if b < 0 then Writeln(f, '4') else Writeln(f, '2');
  Close(f)
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота