Посмотри внимательно программный код: k=10 while k 5 print(k) k=k-1 1) Назовите параметр цикла 2) Начальное - id2131528520200526 от vasilevaka12 26.05.2020 13:57

Question

Информатика: Посмотри внимательно программный код: k=10 while k 5 print(k) k=k-1 1) Назовите параметр цикла 2) Начальное значение параметра цикла 3) Условие, при котором цикл остановится 4) Как меняется значение параметра цикла

vasilevaka12 · Accepted Answer

Var a,b,c,n:integer;
begin
for a:=1 to 7 do
for b:=a+1 to 8 do
for c:=b+1 to 9 do
begin
n:=a*100+b*10+c;
write(n:4)
end;
end.

var
  i,j,n:integer;
  a:array[1..4,1..5]of real;
begin
for i:=1 to 4 do
begin
for j:=1 to 5 do
begin
a[i,j]:=random*2-1;
write(a[i,j]:20:15);
if a[i,j]>=0 then n:=n+1;
end;
writeln;
end;
writeln('Количество неотрицательных: ',n);
end.

var
  i,j,sum:integer;
  a:array[1..3,1..4]of integer;
begin
for i:=1 to 3 do
for j:=1 to 4 do
readln(a[i,j]);
writeln('Массив:');
for i:=1 to 3 do
begin
for j:=1 to 4 do
begin
sum:=sum+a[i,j];
write(a[i,j]:4);
end;
writeln('sum=':8,sum);
sum:=0;
end;
end.

MOGZ ответил