1. заполнить массив размером 7х7 по правилу: 1 1 1 1 1 1 1 0 1 1 1 1 1 0 0 0 1 1 1 0 0 0 0 0 1 0 0 0 0 0 1 1 1 0 0 0 1 1 1 1 1 0 1 1 1 1 1 1 1 2. заполнить массив размером 6х6 по правилу: 1 2 3 4 5 6 2 3 4 5 6 1 3 4 5 6 1 2 4 5 6 1 2 3 5 6 1 2 3 4 6 1 2 3 4 5
158
463
Ответы на вопрос:
Program p1; var a: array[1..7,1..7] of byte; i,j: byte; begin for i: =1 to 7 do begin for j: =1 to 7 do begin if i< =4 then if (j> =i) and (j< =8-i) then a[i,j]: =1 else a[i,j]: =0 else if (j< =i) and (j> =8-i) then a[i,j]: =1 else a[i,j]: =0; write(a[i,j]: 2) end; writeln end end. результат выполнения программы: 1 1 1 1 1 1 1 0 1 1 1 1 1 0 0 0 1 1 1 0 0 0 0 0 1 0 0 0 0 0 1 1 1 0 0 0 1 1 1 1 1 0 1 1 1 1 1 1 1 program p2; var a: array[1..6,1..6] of byte; i,j: byte; begin for i: =1 to 6 do begin for j: =1 to 6 do begin a[i,j]: =i+j-1; if a[i,j]> 6 then a[i,j]: =a[i,j]-6; write(a[i,j]: 2) end; writeln end end. результат выполнения программы: 1 2 3 4 5 6 2 3 4 5 6 1 3 4 5 6 1 2 4 5 6 1 2 3 5 6 1 2 3 4 6 1 2 3 4 5
Var n,a,b,s: integer; begin read(n1); a: =n1 div 10; b: =n1 mod 10; s: =a+b; n: =10*b+a; writeln(s); writeln(n); end.
Популярно: Информатика
-
cake5555519.02.2020 01:49
-
dariaglaowa102.09.2022 13:18
-
Sanek27rus23.10.2020 21:56
-
lukianova20172002.11.2022 13:10
-
Деп56710.06.2022 08:53
-
olga63820.03.2023 16:20
-
Joker45514.10.2022 14:09
-
Vitaliy5555518.03.2021 00:56
-
КариM09.08.2022 02:43
-
oietillokhabiby27.11.2020 15:18