Предмет: Информатика,
автор: capibareq
Срочно пожалуйста!!
Напишите программу на паскале. заполните экран жёлтым цветом. Введите строку с клавиатуры. Еще раз очистите экран и выведите строку в правом нижнем углу экрана, вставив в нее посередине заданное слово (При вводе строки использовать предложение из литературного произведения, в writeln указать после слов "Введите строку" название произведения и автора. При выводе измененной строки использовать процедуру window, в writeln указать, в результате чего изменена строка, т.е условие задачи)
Ответы
Автор ответа:
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
Предмет: Физика,
автор: hz9bg4gwb6
Предмет: Українська література,
автор: l37803502
Предмет: Математика,
автор: YULIAPETROVA84
Предмет: Химия,
автор: llazutochkina