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

Срочно пожалуйста!!
Напишите программу на паскале. заполните экран жёлтым цветом. Введите строку с клавиатуры. Еще раз очистите экран и выведите строку в правом нижнем углу экрана, вставив в нее посередине заданное слово (При вводе строки использовать предложение из литературного произведения, в writeln указать после слов "Введите строку" название произведения и автора. При выводе измененной строки использовать процедуру window, в writeln указать, в результате чего изменена строка, т.е условие задачи)

Ответы

Автор ответа: denispomogator
0

Відповідь:

Пояснення:

program ScreenOutput;

uses crt;

var

 str: string;

begin

 { Заполнение экрана желтым цветом }

 TextBackground(Yellow);

 ClrScr;

 

 { Ввод строки с клавиатуры }

 writeln('Введите строку (цитата из "Преступление и наказание" Ф. М. Достоевского):');

 readln(str);

 

 { Очистка экрана и вывод измененной строки }

 ClrScr;

 window(60,23,80,25);

 TextBackground(Black);

 writeln('Измененная строка (посередине слово "Душа"):');

 writeln('': (21 - length(str) div 2), str);

 

 readln;

end.

Похожие вопросы
Предмет: Астрономия, автор: arihka24846148zubpos
Предмет: Математика, автор: YULIAPETROVA84