В паскале Вывести на экран символы: а) Z Z Z Z б) Z Y X …

Question

В паскале Вывести на экран символы: а) Z Z Z Z б) Z Y X … B A в) 1 0 0 … 0 0Y Y Y Y Z Y X … B 0 2 0 … 0 0

Answer 1

85

ikimi

14 апреля 2023

{Задание а}var i: integer; begin for i: =90 downto 65 do writeln (chr (i) , ', chr (i) , ', chr (i) , ', chr (i); end. {Задание б}var i, j: integer; begin for i: =90 downto 65 do begin for j: =90 downto 65+90 — i do write (chr (j) , '); writeln; end; end. {Задание в}var i, j: integer; begin for i: =1 to 9 do begin for j: =1 to 9 do if i=j then write (i, ') else write ('0 '); writeln; end; end.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: