Определи в каждой ситуации приёмник информации ранним утром под моим окном поют птицы папа слушает новости по телевизору и люди ждут зелёного цвета на светофоре

Кто смотрит Гарри Поттер?

Объяснение:

Я уже на. 6 часте

1. Для того, чтобы текст был более восприимчив и понятен.
2. Из интернета, архива, галлереи.
3. Чтобы изменить способ размещения рисунка, следует щелкнуть на нём правой кнопкой мыши и выбрать в контекстном меню пункт Формат рисунка.
4. Левая кнопка мыши, нажать на вставить. Или же выбрать в верхнем левом углу выбрать файл и вставить.
5. Нажать два раза правой кнопкой мыши.
6. CTRL + C, CTRL + V. Или же левой кнопкой мыши нажать на рисунок и выбрать пунк: копировать.
7. Левой кнопкой мыши нажать на рисунок и выбрать пункт удалить. Или же нажать на клавишу Del.
8. В разделе Работа с рисунками на вкладке Формат в группе Изменение нажмите кнопку Сжать рисунки. Чтобы выполнить сжатие только для выбранных, а не для всех рисунков в документе, установите флажок Применить только к этому рисунку.

Задача А

program Boom;

uses crt;

var

 a, b: integer;

begin

 Read(a, b);

 if a > b then Writeln('Наибольшее число ', a) else Writeln('Наибольшее число ', b);

end.

Тестовое решение

12

52

Наибольшее число 52

Задача Б

program Boom;

uses crt;

 

var

     a:array[1..4] of Integer;

     max:integer;

     i:byte;

Begin

for i:= 1 to 4 do

Begin

Write('Введите число:');

Read(a[i]);

End;

max := a[1];

for i:= 2 to 4 do

if a[i] > max then

max := a[i];

Write('Наибольшее число:');

WriteLn(max);

End.

Тестовое решение:

Введите число:12

Введите число:53

Введите число:34

Введите число:63

Наибольшее число:63