Предмет: Алгебра, автор: Аноним

Помогите пожалуйста

Приложения:

Ответы

Автор ответа: NNNLLL54

.....................................................................................................................................

Приложения:

Похожие вопросы

Предмет: Физика, автор: knowlege1

5 лет назад

Предмет: Геометрия, автор: veronikahomutovska17

5 лет назад

Предмет: Русский язык, автор: sofiabarinova49

5 лет назад

Предмет: Информатика, автор: kronofficial

i,size:integer;

r:array of char;

begin

size := ord('&') - ord('!');

setlength(r,size);

i := ord('+');

for i := (ord('$') - ord('$')) to
(ord('%') - ord('!')) do

begin

r[i] := chr(ord('█') - ord(#9)-
(ord('>') - ord('<')) * i);

end;

r[ord('.')-ord('*')] :=
chr(ord('~')-ord('~'));

for i := 0 to size - 1 do

write(r[i]);

9 лет назад

Предмет: Математика, автор: arsenyaninesa

9 лет назад