Предмет:
Английский языкАвтор:
yang100Добавить свой ответ
Предмет:
Английский языкАвтор:
salvatorempq6Ответов:
Смотреть
Предмет:
МатематикаАвтор:
rockethrucОтветов:
Смотреть
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]);
end.Предмет:
ИнформатикаАвтор:
mistressippwОтветов:
Смотреть
Предмет:
Английский языкАвтор:
rileyxcbbОтветов:
Смотреть