Var
i:integer;
begin
i:=100;
while (i+7<200) do begin
inc(i,7);
write(i,' ');
end;
end.
Если таблицей считать матрицу n*m то может получиться так:
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var s:=0;
var n:=ReadlnInteger('Введите N');
var m:=ReadlnInteger('Введите M');
var a:=MatrixRandom(n,m); println(a);
for var i:=0 to n-1 do
for var j:=0 to m-1 do s:=s+a[i,j];
println('Среднее арифметическое:',s/(n*m));
end.
Язык программирования устанавливает набор правил, определяющих внешний вид программы и действия, которые выполнит исполнитель под ее управлением.
А система программирования это внутренний код программы, который исполняет действия заданным в систему
var i,j:integer;
begin
for i:=0 to 3 do
begin
for j:=i to 2 do write (' ');
write('/');
for j:=1 to i do write (' ');
write('\');
writeln;
end ;
for i:=0 to 3 do
begin
for j:=1 to i do write (' ');
write('\');
for j:=i to 2 do write (' ');
write('/');
writeln;
end ;
end.