Ответы на вопрос:
Const n=7; var a: array[1..n,1..n] of char; i,j: integer; begin for i: =1 to n do for j: =1 to n do if j< =n-i+1 then a[i,j]: ='*' else a[i,j]: =' '; for i: =1 to n do begin for j: =1 to n do write(a[i,j]: 2); writeln; end; end. результат: * * * * * * * * * * * * * * * * * * * * * * * * * * * *
Популярно: Информатика
-
air778901.11.2020 07:12
-
Artobotik30.01.2020 05:45
-
Lala091127.05.2023 19:00
-
SonicAndDash10.08.2021 13:08
-
ОСЕНЬ201927.08.2022 03:34
-
Veroni4ka709008.12.2020 10:43
-
T321127.04.2022 18:23
-
YUSUFOV26.12.2022 14:57
-
Makcuм28.01.2021 08:03
-
OlesyLisaGames30.11.2022 05:13