Две небольшие задачки по программированию.

№1. Чему будет равно значение переменной "с" в результате выполнения фрагмента программы?

a:=1257; c:=0;

while a>0 do begin

if a mod 20 then b:=a mod 10; c:=c+b;

a:=a div 10; end;

№2. Каким должно быть, чтобы после выполнения фрагмента программы переменная "s" была равна сумме элементов главной диагонали?

s:=0; for i:=1 to N do

for j:=1 to N do if then s:=s+a[ij];

Question

Информатика

Лидоня

26 марта, 23:58

Две небольшие задачки по программированию.

№1. Чему будет равно значение переменной "с" в результате выполнения фрагмента программы?

a:=1257; c:=0;

while a>0 do begin

if a mod 20 then b:=a mod 10; c:=c+b;

a:=a div 10; end;

№2. Каким должно быть, чтобы после выполнения фрагмента программы переменная "s" была равна сумме элементов главной диагонали?

s:=0; for i:=1 to N do

for j:=1 to N do if then s:=s+a[ij];

+3

Ответы (1)

Знаете ответ?

Алексей · Answer 1

1) с=18 и это легко получить, просто выполнив программу в Паскале.

2) В условии надо поставить i=j

Однако, вместо дурацкой конструкции

for i:=1 to N do

for j:=1 to N do if then s:=s+a[i, j];

нормальные люди пишут так:

for i:=1 to N do s:=s+a[i, i];