Ответы на вопрос:
Var a: array[1..10,1..10] of char ; i,j: integer; begin for i: = 1 to 10 do begin for j: =1 to 10 do begin if i< j then a[i,j]: ='x' else if i=j then a[i,j]: = 'y' else a[i,j]: ='z'; write(a[i,j]: 2); end; writeln(); end; end.
Популярно: Информатика
-
mr7ka09.06.2022 17:11
-
хіха01.09.2022 02:44
-
Абдулjazair20.10.2021 04:57
-
nellimatveeva20.02.2021 11:11
-
otlichnikcom16.05.2020 10:15
-
боня5119.02.2020 04:29
-
Trifonova25252514.02.2021 12:38
-
hotrikplayp03euu24.05.2021 17:37
-
snowprincss03.01.2020 19:41
-
vgfhdijubvn15.06.2023 04:55