4 года назад

Помогите, пожалуйста. какой ответ?

Знания

Информатика

2 ответа:

Olesya274 года назад

0 0

, Первоначально (после первого цикла): A = 0 1 2 ... 10

Посмотрим, что делает второй цикл.
Заметим, что переменная k здесь бесполезна - ей присваивают какие-то значения, а потом ничего с ними не делают. Тогда про неё можно забыть. Остаётся только одна команда: A[i] = A[10-i]
Для i = 0, 1, 2, 3, 4 она просто заменяет A[i] на значение, симметричное относительно центра A[5]; A[0]=10, A[1]=9; A[2]=8; A[3]=7; A[4]=6.
С i=5 не происходит ничего: присвоение имеет вид A[5]=A[5]
Для последующих i опять A[i] меняется на симметричное. Но после i=4 массив и так "симметричен", так что все эти команды ничего не делают.

A = [10, 9, 8, 7, 6, 5, 6, 7, 8, 9, 10]

lena004 года назад

0 0

Мне кажется правильный ответ под номером три)

Читайте также

Знайти суму всіх натуральних парних чисел від 0 до N.паскаль

Nogato

Var i, sum, n: integer;
Begin
Read(n);
for i := 0 to n do
if (i mod 2 =0) then sum := sum +i;

writeln(sum);
End.

0 0

4 года назад

Прочитать ещё 2 ответа

Нарисуйте звёздочку и домик в паскале ПОЖАЛУЙСТА СРОЧНО 10 БАЛЛОВ

Гордеев Андрей Дм...

Ответ:

1) Дом

uses GraphABC;

begin

setwindowsize(800,800);

SetpenWidth(6);

rectangle(100,300,600,700);

Moveto(100,300);

Lineto(350,35);

lineto(600,300);

rectangle(130,420,260,600);

rectangle(450,450,600,700);

circle(480,570,5);

line(195,420,195,600);

line(130,500,260,500);

end.

2) Звезда

uses GraphABC;

begin

Setpenwidth(5);

Setpencolor(clred);

Moveto(300,0);

lineto(150,400);

lineto(300,300);

lineto(450,400);

lineto(300,0);

line(75,150,525,150);

line(75,150,450,400);

line(525,150,150,400);

end.

0 0

1 год назад

Файл содержал несжатую стереофоническую музыкальную композицию, оцифрованную с частотой дискретизации 22000 Гц и 65536 уровнями

янка меликова

192 секунды
.............................................

0 0

4 года назад

Пожалуйста помогите срочно. Напишите программу в паскале для 9класса отображающую третий закон Ньютона. Если не можете сюда кину

Аэлита89

program zakonnietona3;
uses crt;
var F1,F2: real;
begin
cls;
writeln('Третий закон Ньютона-тела действуют друг на друга с силами направленными ');
writeln('вдоль одной прямой,');
writeln(' равными по числовому значению и противоположны по направлению');
write('Введите первую силу');
read(F1);
F2:=-F1;
write('Вторая сила F2=',F2);
end.

0 0

4 года назад

Запишите на языке Паскаль программу которая для произвольного натурального двузначного числа определяет сумму и произведение его

Амелия777 [1]

var

x,a, b: integer;

begin

readln (x);

a:= x div 10;

b:= x mod 10;

writeln ('сумма=', a+b);

writeln( ' произведение =', a*b);

end.

0 0

4 года назад