Те, кто владеют Python!
Плановий відділ швейної компанії розраховує площу тканини, яка залишиться після того, як із заготовки розміром a х a вирізали круг радіусом r.
210
290
Ответы на вопрос:
Const n = 4; var a: array[1..n,1..n] of integer; i,j,k: integer; begin randomize; writeln('1)'); k: =0; for i: = 1 to n do begin for j: = 1 to n do begin a[i,j]: =random(21)-10; write(a[i,j]: 3,' '); if a[i,j] < 0 then k: =k+1; end; writeln end; writeln('k = ',k); writeln('2)'); for i: = 1 to n do begin for j: = 1 to n do begin if j > i then a[i,j]: =100; write(a[i,j]: 3,' ') end; writeln end; writeln('3)'); for i: = 1 to n div 2 do begin for j: = 1 to n do begin k: =a[i+n div 2,j]; a[i+n div 2,j]: =a[i,j]; a[i,j]: =k; end end; for i: = 1 to n do begin for j: = 1 to n do write(a[i,j]: 3,' '); writeln end; end. 1) 10 2 -9 4 -10 5 -5 -10 4 9 4 10 3 -9 10 -6 k = 6 2) 10 100 100 100 -10 5 100 100 4 9 4 100 3 -9 10 -6 3) 4 9 4 100 3 -9 10 -6 10 100 100 100 -10 5 100 100
Популярно: Информатика
-
Oks09907.06.2022 12:49
-
СветланаРассвет30.11.2022 22:32
-
Alinakozlova200419.01.2021 00:48
-
5867389576M21.03.2020 09:14
-
abagvandmip0agkq20.01.2021 17:45
-
sleeplessness525.06.2023 19:16
-
maratsultanbekкатя10.03.2021 05:27
-
Bdbdbbfbrhr04.10.2020 19:11
-
burakova198520030.07.2020 03:58
-
Rita21060628.12.2021 14:50