1.Сколько раз выполнится тело цикла в следующих фрагментах программ:а)for i:= 7 downto 0 do c:=2i;
б)for i:= 1 to 8do c:=2i;
2.Определите значение переменной X после выполнения следующего фрагмента программы:x:=2;for i:= 1 to 5 do x:=x+2i;x:=x+1;
3.Определите значение переменной X после выполнения следующего фрагмента программы:x:=2;for i:= 1 to 5 do begin x:=x+2i;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+2i;x:=x+1;end;
1)i:=2; while i< 6do begin x:=x+2i;x:=x+1;i:=i+1;end;
2) i:=2; while i<= 6do begin x:=x+2i;x:=x+1;end;
3) i:=2; while i<=6do begin x:=x+2i;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

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

farita1

23.06.2020 00:07

Книга содержит 142 страниц. На каждой странице 35 строк. В каждой строке 59 символов (включая пробелы). Найти информационный объём текста, считая, что каждый символ кодируется...

StepanEgorov

23.06.2020 00:07

Нужно написать программу на c++, которая будет рисовать полый квадрат из решеток(#) используя вложенный цикл. Вводится одна переменная: длина стороны...

ellaakobyan

04.06.2023 23:57

Внаиболее распространённой разновилности кадировки unicode на каждый символ отводится два байта.определите информационный объём слова из двадцати четырёх символов в этой...

trinadsyear

23.10.2022 14:41

Пользователь находился в каталоге занятия. сначала он поднялся на один уровень вверх, затем ещё раз поднялся на один уровень вверх, потом спустился на один уровень вниз....

Капуста11111

23.10.2022 14:41

Вмассиве d (1: 4, 1: 4) элементы первого столбца поставить на место соответствующих элементов главной диагонали и определить произведение элементов главной диагонали. в pascal....

Kuk1212

23.10.2022 14:41

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

ilviragaraeva2

06.03.2021 21:54

После изменения свойств рабочего стола монитор приобрёл разрешение 1024*768 точек и получил возможность отображать 65 536 цветов. какой объём видеопамяти необходим для текущего...

ninakamenskix2000

24.04.2023 21:16

Чему равна сумма элементов а[1] и а[4] массива,сформированного след.образом: for i: =1 to 5 do a[i]: +i*(i+1)...

volchica232005

24.04.2023 21:16

Ну же какой объем имеет 32-х цветный рисунок на всем экране компьютера, если растр монитора 1024х6768.ответ выразите в килобай...

reginа111222333

09.03.2021 00:25

Назовите чувства и органы чувств человека с которых он получает следующие виды информации: 1)зрительную информацию,2)звуковую информацию,3)вкусовую информацию,4)обонятельную...

Ответ:

Herty22436

02.11.2020 06:31

Задача №1

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var a:=ArrRandom(31,-20,20); a.Println;
Writeln('Средняя температура в оттепели: ',
a.Where(x->x>0).Average:0:1,' град.')
end.

Тестовое решение
7 -9 -18 -8 14 -2 12 13 4 -18 13 -6 -8 6 -10 -8 20 -15 15 -2 17 20 19 -1 16 10 -7 9 -15 20 -20
Средняя температура в оттепели: 13.4 град.

Задача №2

// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
// Также проверено в WDE: http://pascalabc.net/WDE
begin
var x:=ArrRandom(ReadInteger('m='),1,99); x.Println;
var sn:=x.Where((x,i)->i.IsEven).Sum;
var i:=1;
while i<x.Length do begin x[i]:=sn; Inc(i,2) end;
x.Println
end.

Тестовое решение
m= 15
26 31 19 99 3 93 64 31 97 14 88 88 81 49 43
26 421 19 421 3 421 64 421 97 421 88 421 81 421 43

0,0(0 оценок)

Ответ:

polina7snoy

02.11.2020 06:31

1)
const n=31;
var a:array[1..n] of integer;
i,s,k:integer;
begin
Randomize;
for i:=1 to n do
begin
a[i]:=random(41)-20;
write(a[i]:4);
end;
writeln;
s:=0; k:=0;
for i:=1 to n do
if a[i]>0 then begin s:=s+a[i]; k:=k+1; end;
writeln('Средняя температура дней с оттепелью = ',s/k:4:2);
end.

Пример:
-7 4 17-13 20 -8 12 11 15-17 -5 15-17 -4 14-12 3-20 6 -8-14 -8 18 17 6 -9 16 10 17 20-15
Средняя температура дней с оттепелью = 13.00

2)
const m=10;
var a:array[1..m] of integer;
i,s:integer;
begin
Randomize;
for i:=1 to m do
begin
a[i]:=random(21);
write(a[i]:4);
end;
writeln;
s:=0;
for i:=1 to m do
if i mod 2 = 1 then s:=s+a[i];
writeln('s = ',s);
for i:=1 to m do
if i mod 2 = 0 then a[i]:=s;
for i:=1 to m do write(a[i]:4);
writeln;
end.

Пример:
14 9 0 8 6 2 2 16 1 16
s = 23
14 23 0 23 6 23 2 23 1 23

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку