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

1.Сколько раз выполнится тело цикла в следующих фрагментах программ:а)for i:= 7 downto 0 do c:=2*i;
б)for i:= 1 to 8do c:=2*i;
2.Определите значение переменной X после выполнения следующего фрагмента программы:x:=2;for i:= 1 to 5 do x:=x+2*i;x:=x+1;
3.Определите значение переменной X после выполнения следующего фрагмента программы:x:=2;for i:= 1 to 5 do begin x:=x+2*i;x:=x+1;end;
4.Сколько раз выполнится тело цикла в следующих фрагментах программ:а) x:=12;while x>=0 do x:=x-1;
б)x:=0;while x>=0 do x:=x-2;
в)x:=0;while x>0 do x:=x-2;
5.Определите значение переменнойXпосле выполнения следующего фрагмента программы:x:=2;y:=6;while x+y<10 do begin x:=x+2;y:=y-1;end;
6.Выберите номер фрагмента программы, выполняющего такие же действия, что и приведенный ниже:for i:= 2to 6do begin x:=x+2*i;x:=x+1;end;
1)i:=2; while i< 6do begin x:=x+2*i;x:=x+1;i:=i+1;end;
2) i:=2; while i<= 6do begin x:=x+2*i;x:=x+1;end;
3) i:=2; while i<=6do begin x:=x+2*i;x:=x+1;i:=i+1;end;
7.Сколько раз выполнится тело цикла в следующих фрагментах программ:а)x:=12;repeatx:=x-1;untilx<0;
б) x:=8;repeatx:=x-1;untilx>0;
8.Определите значение переменной X после выполнения следующего фрагмента программы:x:=1;repeatx:=x+2;x:=x+1;untilx>10;
9.Выберите аналогичный фрагмент приведенному выше,но записанный с цикла while. 1.X:=1;While x>10dobegin x:=x+2; x:=x+1; end;
2.X:=1;Whilex<10dobegin x:=x+2; x:=x+1; end;
3.X:=1;Whilex<=10dobegin x:=x+2; x:=x+1; end

👇
Открыть все ответы
Ответ:
ольга1698
ольга1698
16.08.2021

Объяснение:

Участвуя в Событии, каждый игрок должен всегда соблюдать данные правила, а в случае, если игрок является Несовершеннолетним (определение приведено ниже), его родитель или законный опекун должен за выполнением Несовершеннолетним данных Правил, включая Правила поведения, указанные в разделе 8. Игрок (или его родитель или законный опекун в случае, если игрок является Несовершеннолетним) может принять данные Правила, щёлкнув по соответствующей кнопке в игровом клиенте, когда такая возможность будет предоставлена компанией Epic Games, Inc. (далее — Epic). Принимая участие в любой игре или матче в рамках События, игрок подтверждает, что он (или его родитель или законный опекун в случае, если игрок является Несовершеннолетним) соглашается с данными Правилами в соответствии с настоящим пунктом 1.2.

4,7(32 оценок)
Ответ:
125DVV
125DVV
16.08.2021

Объяснение:

a - массив;

sum - сумма элементов массива;

avrg - среднее значение.

Пример алгоритма решения задачи:

Заполняем массив (например, случайными числами).

Переменной sum изначально присваиваем значение 0.

Вычисляем сумму элементов, в цикле перебирая массив и добавляя значение каждого к переменной sum.

Находим среднее арифметическое, путем деления суммы на количество элементов (хранится в константе N).

Выводим на экран весь массив и найденное среднее значение. (Это не обязательно, но необходимо для удобства.)

Снова в цикле перебираем массив. Если очередной элемент больше среднего арифметического, то выводим этот элемент на экран.

const N = 10;

var

a: array[1..N] of integer;

i: byte;

avrg: real;

sum: integer;

begin

randomize;

for i:=1 to N do a[i]:=random(50)+1;

sum := 0;

for i:=1 to N do sum := sum + a[i];

avrg := sum/N;

// весь массив

for i:=1 to N do write(a[i]:3);

writeln;

writeln('Среднее арифм.: ',avrg:4:2

for i:=1 to N do if a[i]>avrg then write(a[i]:3);

writeln;

end.

Пример выполнения программы:

7 36 21 48 33 46 7 17 19 41

Среднее арифм.: 27.50

36 48 33 46 41

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