Объяснение:
uses GraphABC;
begin
line(0,0,640,240);
line(45,0,640,240);
line(89,0,640,240);
line(132,0,640,240);
line(176,0,640,240);
line(219,0,640,240);
line(263,0,640,240);
line(306,0,640,240);
line(350,0,640,240);
line(393,0,640,240);
line(437,0,640,240);
line(480,0,640,240);
end.
uses GraphABC;
begin
line(0,0,640,0);
line(0,47,640,47);
line(0,94,640,94);
line(0,141,640,141);
line(0,188,640,188);
line(0,235,640,235);
line(0,282,640,282);
line(0,329,640,329);
line(0,376,640,376);
line(0,423,640,423);
line(0,470,640,470);
end.
Поделитесь своими знаниями, ответьте на вопрос:
Дана программа для исполнителя Редактор: НАЧАЛО ПОКА нашлось (5555) заменить (5555, 33) заменить (333, 5) КОНЕЦ ПОКА КОНЕЦ Какая строка получится в результате применения приведённой выше программы к строке, состоящей из 253 идущих подряд цифр 5? В ответе запишите полученную строку.
Объяснение:
uses GraphABC;
begin
line(0,0,640,240);
line(45,0,640,240);
line(89,0,640,240);
line(132,0,640,240);
line(176,0,640,240);
line(219,0,640,240);
line(263,0,640,240);
line(306,0,640,240);
line(350,0,640,240);
line(393,0,640,240);
line(437,0,640,240);
line(480,0,640,240);
end.
uses GraphABC;
begin
line(0,0,640,0);
line(0,47,640,47);
line(0,94,640,94);
line(0,141,640,141);
line(0,188,640,188);
line(0,235,640,235);
line(0,282,640,282);
line(0,329,640,329);
line(0,376,640,376);
line(0,423,640,423);
line(0,470,640,470);
end.