ПОМОГИТЕ ПЕРЕВЕСТИ ПАСКАЛЬ НА КУМИР
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.
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.
More Questions From This User See All
Answers & Comments
Ответ:
цел 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 пришлось объявить как обычную целую переменную, т.к. насколько я знаю, в Кумире нельзя задать константу (как неизменяемую величину с присвоенным именем).