Працюємо самостійно яких значень буде надано змінним, імена яких трапляються в командах, у результаті - id1731243420220109 от Stepanych2017 09.01.2022 07:05

Question

Информатика: Працюємо самостійно яких значень буде надано змінним, імена яких трапляються в командах, у результаті виконання таких фрагментів програм (для різних значень вхідних даних); 1) i:=1; x:=0); при 1) n=3; y= ТАК while (I n) and (y= TAK ); 2) n=3; у НЕМАЄ 3) n=1; y= ТАК х: х 11; i:=i+1 4) n=1; у= НЕМАЄ 5) n=5; y= ТАК? 2) for i in range (1, 5) : for j in range (1, 5): х= i*j print (i+ , 1+j+ дорівнює 1 +r) ; ЩО МНОЖИТЬСЯ На І​

Stepanych2017 · Accepted Answer

function summa(n:integer):integer;

var a,s:integer;

begin

a:=abs(n);

s:=0;

while a>0 do

begin

s:=s+a mod 10;

a:=a div 10;

end;

summa:=s

end;

const n=10;

var A:array [1..n] of integer;

j,i,k:integer;

begin

writeln('Исходный массив: ');

for i:=1 to n do

begin

A[i]:=random(15)+1;

write(A[i]:4);

end;

for i:=1 to n-1 do

begin

for j:=1 to n-1 do

if summa(A[j])<summa(A[j+1]) then

begin

k:=A[j];

A[j]:=A[j+1];

A[j+1]:=k

end;

writeln;

writeln('Отсортированный массив: ');

for i:=1 to n do

write(A[i]:4);

readln

end.

MOGZ ответил