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

ЗАДАНИЕ No1 ВРЕМЯ НА ВЫПОЛНЕНИЕ:
19:19
ТЕКСТ ЗАДАНИЯ
Роботы, в зависимости от их функций, бывают нескольких видов.
Ниже вам представлены различные виды роботов.
Определите промышленного робота по картинке
3
2
4
1
5
2.
E)
4
1
5
Вперед
- Назад
Активация мраоке
активировать после
мне СОР У меня! ​


ЗАДАНИЕ No1 ВРЕМЯ НА ВЫПОЛНЕНИЕ:19:19ТЕКСТ ЗАДАНИЯРоботы, в зависимости от их функций, бывают нескол

👇
Ответ:
hrsalesaudit
hrsalesaudit
05.11.2020

1 робот пылесос 2 механический робот З танк 4 робот

художник 5 робот щенок

4,5(91 оценок)
Открыть все ответы
Ответ:
mvamz
mvamz
05.11.2020

Цикл while i > 1 do begin означает что он будет выполняться до тех пор, пока i > 1. i изначально равно 7, и в конце каждого выполнения число уменьшается на единицу (i:=i-1). i div 2 означает деление числа на 2 с целым остатком. Исходя из вышесказанного имеем:

(Каждое выполнение цикла буду обозначать как №)

№1: 7>1 (Истина)

S:=0+3=3

i=6

№2: 6>1 (Истина)

S:=3+3=6

i:=5

№3: 5>1 (Истина)

S:=6+2=8

i:=4

№4: 4>1 (Истина)

S:=8+2=10

i:=3

№5: 3>1 (Истина)

S:=10+1=11

i:=2

№6: 2>1 (Истина)

S:=11+1=12

i:=1

№7: 1>1 (Ложь)

Вывод числа S со значением 12.

ответ: 12.

4,5(79 оценок)
Ответ:
мэри114
мэри114
05.11.2020
Program Project1;

var m:array [0..14] of integer; i:integer;

function IsPositive(a:integer):boolean;
begin
  result:=(a>-1);
end;

procedure work;
var min, max, count:integer;
begin
  count:=0;
  min:=m[0];
  max:=0;
  for i:=0 to 14 do begin
    if IsPositive(m[i]) then begin
      inc(count);
      if m[i]>max then max:=m[i];
      if m[i]<min then min:=m[i];
    end;
  end;
  writeln('MAX: ', max);
  writeln('MIN: ', min);
  writeln('Count: ', count);
end;

begin
  for i:=0 to 14 do begin
    write('n: ');
    readln(m[i]);
  end;

  work;

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