Программу написал HRAshton. Я немного изменил
алг
нач
целтаб арр[1:3, 1:3]
цел к, п, ш
нц для ш от 1 до 3
нц для к от 1 до 3
арр[ш, к] := int(rnd(900)+100)
вывод арр[ш, к], ' '
кц
вывод нс
кц
нц для ш от 1 до 3
если ш<>2
то
п := арр[ш, 1]
арр[ш, 1] := арр[ш, 3]
арр[ш, 3] := п
все
кц
вывод нс, нс
нц для ш от 1 до 3
нц для к от 1 до 3
вывод арр[ш, к], ' '
кц
вывод нс
кц
кон
<span>
</span>
Abs(−26)=26
sqr(b)=676
sqr(b+b)=2704
Я делала такое на доп. курсах информатики, всё просто.
// PascalABC.NET 3.0, сборка 1144 от 16.01.2016
begin
var d:=ReadInteger('n=') mod 10;
Writeln(d,#13#10,sqr(d));
end.
<u><em>Тестовое решение:</em></u>
n= 346427
7
49
Предполагаю, что ЯП - Паскаль.
program sum3;
var
a,b,c,r:integer;
begin
write('введите a: ');
readln(a)
write('введите b: ');
readln(b);
write('введите c: ');
readln(c);
r:=a+b+c;
writeln('результат: ',r);
end.
Потому что создается растровая графика фотоаппаратами, сканерами, непосредственно в растровом редакторе, также путем экспорта из векторного редактора или в виде скриншотов.