М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
vmse90
vmse90
19.12.2022 13:04 •  Информатика

Для каждого оператора, указанного в левой колонке, подберите соответствующее ему описание из правой колонки:
а) WRITE​1) осуществляет вывод на экран;
б) BEGIN​2) условный оператор неполной формы;
в) READ​3) обеспечивает ввод данных с клавиатуры;
г) IF … THEN​4) начало основного текста программы.
3. Служебное слово THEN в условном операторе переводится как...
а) ЕСЛИ;​б) ТОГДА;​в) ИНАЧЕ;​г) ВВОД;​д) УСЛОВИЕ.
4. Укажите правильный вариант использования условного оператора полной формы.
а) IF <условие> THEN begin <серия операторов 1> end ELSE begin <серия операторов 2> end;
б) IF <условие> THEN <серия операторов 1>; ELSE <серия операторов 2>;
в) THEN begin <серия операторов 1> end IF <условие> ELSE begin <серия операторов 2> end;
г) THEN <серия операторов 1> ELSE <серия операторов 2> IF <условие>;
д) IF <условие> THEN <серия операторов 1>
5. Вычислите значение переменной S:
x:=2;​y:=3; ​
if x а) 1 ​б) 2 ​​в) 3 ​​г) 4
6. Определить, делится ли целое число Т на 5 без остатка. Какое условие можно использовать в этой задаче?
а) T mod 5=0;​б) T=5;​в) T/5=0;​г) T div 2=5;​д) T mod 2=5
7. Входит ли число А в диапазон значений (4; 10]. Какое составное условие нужно поставить в этой задаче?
а) (A>4) and (A<10);​б) (A>=4) and (A<10);​
в) (A<4) and (A>=10);​г) (A>4) or (A<=10);​д) (A>4) and (A<=10).
8. Вычислите значение переменной Z:
Z:=1; if Z>0 then
if Z<2 then Z:=Z+1 else Z:=Z-1;
а) 0; ​​б) 1; ​​в) 2; ​​г) 3.
9. Вычислите значение переменной S:
a:=1; b:=2; S:=5;
if a>b then S:=a
else begin S:=b; S:=S+a; end;
а) 2; ​​б) 3; ​​в) 4; ​​г) 5.
10. Вычислите значение переменной x:
a:=5; b:=2; c:=3;
if (a>c) and (a else x:=a + b;
а) 15; ​​б) 7; ​​в) 8; ​​г) 5.

👇
Ответ:
Strong996
Strong996
19.12.2022

Объяснение:

Максимальная высота, на которую поднимается тело массой 1 кг, подброшенное вертикально вверх, составляет 20 м. Найдите чему была равна кинетическая энергия тела сразу же после броска. Решение. По закону сохранения энергии, максимальная кинетическая энергия в начале броска будет равна потенциальной энергии в наивысшей точке полета: ответ: 200. ответ: 200.

4,4(45 оценок)
Открыть все ответы
Ответ:
bilainфом
bilainфом
19.12.2022
//Pascal
  var a,b, I, maxsumm, max : integer;
 
  function summdel(x:integer):integer; //результат - сумма делителей х
  var k,sum:integer;
  begin
    sum:=0;
    for k := 1 to x div 2 + 1 do
      if x mod k = 0 then sum:= sum+k;
    summdel:=sum;
  end;
 
  begin
   writeln('Введите границы a,b ');
   readln(a,b);
    maxsumm := 1;
    max := 1;
    for i := a to b do
     begin
        if summdel(i) > maxsumm then
          begin maxsumm:= summdel(i);
            max := i;
          end;
     end;
     writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max)
  end.
4,4(44 оценок)
Ответ:
sashuljalapulja
sashuljalapulja
19.12.2022

Объяснение:

На чистом паскале никак. Либо используя графические библиотеки (например, GraphABC в Pascal ABC.NET), либо, например Delphi.

GraphABC:

uses GrathABC;

var b: picture;

begin

b:= Picture.Create('1.png');

...

end.

Далее через процедуру OnKeyDown или OnKeyPress считываем ключ с клавиатуры, и если это 2, то показываем изображение.

Примерно это должно выглядеть так:

procedure OnKeyPress(key: integer);

begin

if key = 2 then b.Draw(10, 10);

end;

Delphi: на нём гораздо проще. Здесь есть уже готовая форма, и стандартные компоненты за визуальность).

Через компонент TImage (вкладка Additional) загружаем изображение, устанавливаем у изображения свойство Visible:= false. Далее через OnKeyPress главной формы считываем ключ, и если key = 2, то Image.Visible:= true;

4,4(64 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ