Записать на Паскале выражения: a) a+bx+cyz б) [(ax-b)x+c]x-d
в) a+b/c + c/ab
г) x+y/a1 * a2/x-y
292
457
Ответы на вопрос:
Uses crt; type mas = array [1.. 8, 1.. 8] of integer; var m: mas; i,j,k: integer; a: array[1..28]of integer; begin randomize; for i: =1 to 8 do begin for j: =1 to 8 do begin m[i,j]: =random(190)-95; write(m[i,j]: 4); end; writeln; end; for i: =1 to 8 do for j: =1 to 8 do if i> j then begin k: =k+1; a[k]: =m[i,j]; end; writeln; for i: =1 to 28 do write(a[i]: 4); end.
Популярно: Информатика
-
aregv26.11.2020 07:55
-
ilyaska1005.12.2022 18:51
-
Даниад06.06.2022 13:58
-
никита349118.11.2022 18:06
-
luciatarasova08.06.2021 09:31
-
итлиори05.05.2020 17:48
-
zokaa11202.07.2020 09:45
-
0102928373646363718.09.2020 22:16
-
pchelenyok10.05.2023 19:10
-
asdads123sad123asds07.04.2023 07:26