Дан целочисленный массив B[1..5,1..5] Напечатать его левую и правую диагонали

165

464

Посмотреть ответы 1

Ответы на вопрос:

Элизаббета

Информатика

4,8(86 оценок)

Pascal var a,s,d,e : integer; begin readln (a); s : = a div 100; //узнаем цифру сотен d : = (a div 10) - (a div 100) * 10; //узнаем цифру десятков e : = a mod 10; //узнаем цифру единиц case s of 8,9 : a : = a * d; 3..5 : a : = s * 10 + d; else a : = a - s; end; writeln (a); end.