Напишите программу для вывода на экран стихотворения. Учесть сдвиг текста для заголовка и пустые строки. - id1151739920210626 от Soulg4mer 26.06.2021 16:08

Question

Информатика: Напишите программу для вывода на экран стихотворения. Учесть сдвиг текста для заголовка и пустые строки. Цвет фона экрана светло-серый на весь экран. Установить цвет символов для каждого абзаца. Я слышал, что в Нижнем Тагиле, Но слухам не верил всерьёз, Бросают на слитки тугие Прокатчики ветки берёз. И падают прутья с Сбивают, сгорая дотла, Окалины рыжей коросту С листа, что нагрет добела.

Soulg4mer · Accepted Answer

1)
function numb(n:integer):integer;
var
n,ch,st,max:integer;
begin
st:=1;
max:=-1;
ch:=n mod 10;
n:=n div 10;
while(n>0)do
begin
ch:=ch+(n mod 10)*st;
n:=n div 10;
st:=st*2;
end;
while(ch>0)do
begin
if(ch mod 10>max)then
max:=ch mod 10;
ch:=ch div 10;
end;
numb:=max;
end;
2)
function yravn(a,b:integer):integer;
begin
yravn:=-b div a;
end;

MOGZ ответил