Перевести паскаль на кумир
const n=10;

var

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

i,x: integer;

begin

// №1

for i: =1 to n do begin

a[i]: =0; write(a[i]: 3);

end;

writeln;

// №2

for i: =1 to n do begin

a[i]: =i; write(a[i]: 3);

end;

writeln;

// №3

readln(x);

for i: =1 to n do begin

a[i]: =x+i-1; write(a[i]: 3);

end;

end.​

dimadementev2 dimadementev2    2   25.01.2020 21:09    0

Ответы
АннаШпак АннаШпак  11.10.2020 03:13

цел n = 10

цел таб a[1:n]

цел i, x

алг

нач

| Задание №1

нц для i от 1 до n

a[i] := 0; вывод a[i]:3

кц

вывод нс

| Задание №2

нц для i от 1 до n

a[i] := i; вывод a[i]:3

кц

вывод нс

| Задание №3

ввод x

нц для i от 1 до n

a[i] := x + i - 1; вывод a[i]:3

кц

кон

Объяснение:

Суть программы не поменялась, за одним исключением- константу n пришлось объявить как обычную целую переменную, т.к. насколько я знаю, в Кумире нельзя задать константу (как неизменяемую величину с присвоенным именем).

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика