Переведите из паскаля на кумир uses CRT;
var x: integer;
begin
x:=2000;
while x>0 do begin
write (x,'-14=');
x:= x-7;
writeln(x);
delay(50);
end;
writeln('конец алгоритма');
end.

Question

Информатика: Переведите из паскаля на кумир uses CRT; var x: integer; begin x:=2000; while x 0 do begin write (x, -14= ); x:= x-7; writeln(x); delay(50); end; writeln( конец алгоритма ); end.

zalehorosaj · Accepted Answer

Var a: array of integer; // Объявление массива целых чисел
i, n: integer; // объявление целочисленных переменных
begin
// Запросим с клавиатуры размер массива
// и запишем его в переменную n
write('введите n:');
readln(n);

// Теперь выделим память под n элементов массива
SetLength(a, n);

// теперь запросим с клавиатуры n чисел для массива
for i := 0 to n-1 do begin
write('a[', i, ']=');
readln(a[i]);
end;

// теперь в цикле уменьшим каждый элемент на единицу
for i := 0 to n-1 do
a[i] := a[i] - 1;

// распечатаем массив
for i := 0 to n-1 do
write(a[i], ' ');
end.

Переведите из паскаля на кумир uses CRT; var x: integer; begin x:=2000; while x>0 do begin write (x,'-14='); x:= x-7; writeln(x); delay(50); end; writeln('конец алгоритма'); end.

MOGZ ответил

Переведите из паскаля на кумир uses CRT;
var x: integer;
begin
x:=2000;
while x>0 do begin
write (x,'-14=');
x:= x-7;
writeln(x);
delay(50);
end;
writeln('конец алгоритма');
end.