2. Запишите, сколько раз будет выполнен цикл, заданный в программе:
Var s, k:integer;
Begin
S:=0;
for k:=-5 to 10 do s:=2*k+s;
writeln(s)
end.
с решением

👇

Ответ:

shurakupryanov

03.04.2020

16 раз

Объяснение:

количество повторов цикла равно конечное значение (10) переменной счётчика (k) минус начальное значение (-5) переменной счётчика (k) плюс единица

количество повторов цикла = 10 - (-5) + 1 = 10 + 5 + 1 = 16

4,4(22 оценок)

Открыть все ответы

Ответ:

Skillet121516

03.04.2020

Задача 1

const N=30;
var a: array [1..N] of integer;
i,j,s: integer;
begin
for i:=1 to N do readln(a[i]);
for i:=1 to N do
if (a[i]>99)and(a[i]<1000) then
if (a[i] mod 2)<>0 then
begin
s:=s+a[i];
j:=j+1;
end;
if j=0 then writeln('в массиве нет нечётных трехзначных чисел')
else writeln('среднее арифметическое нечётных трехзначных чисел: ',s/j);
end.

задача 2

const N=40;
var a: array [1..N] of integer;
i,x,y: integer;
s: real;
begin
for i:=1 to N do readln(a[i]);
x:=abs(a[1]);
for i:=1 to N do
if (a[i]>0)and((a[i] mod x)=0) then
begin
y:=y+1;
s:=s+a[i];
end;
if y=0 then writeln('в массиве нет нечётных трехзначных чисел')
else writeln('среднее арифметическое положительных чисел кратных первому элементу: ',s/y);
end.

задача 3

const N=30;
var a: array [1..N] of integer;
i,s,m: integer;
begin
for i:=1 to N do readln(a[i]);
m:=a[1];
for i:=2 to N do
if a[i]>m then m:=a[i];
for i:=1 to N do
if a[i]=m then s:=s+1;
if s=1 then writeln('в массиве только один максимальный элемент')
else writeln('число элементов, равных максимальному: ',s-1);
end.

4,7(92 оценок)

Ответ:

Женя111сивар

03.04.2020

Вы можете создавать группы вкладок, которые разделены горизонтально или вертикально. Это позволит вам отображать различные макеты бок о бок или друг над другом.

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

Процедура

Выберите вкладку макета, который вы хотите переместить в новую группу вкладок.

Для создания новой группы вкладок с вертикальным разделением из исходной группы вкладок, в которой макеты будут располагаться бок о бок, выберите Окно > Вертикальное разделение.

Для создания новой группы вкладок с горизонтальным разделением из исходной группы вкладок, в которой макеты будут располагаться друг над другом, выберите Окно > Горизонтальное разделение.

Результат

Выбранная вкладка перемещена в новую группу вкладок.

4,4(63 оценок)

Это интересно:

Кулинария-и-гостеприимство

09.04.2020

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

Дом-и-сад

09.06.2020

Как отмыть губку: простые и эффективные способы...

Компьютеры-и-электроника

08.05.2023