Цитата:
Сообщение от denisova
Написать программу, которая выполняет следующие действия:
– объявляет строку длиной 20 символов;
– заполняет эту строку 16-ю одинаковыми символами;
– в центре введенных 16 символов выводит 8 пробелов;
– в центре введенных 8 пробелов помещает 4 цифры, соответствующие текущему году,
взяв это значение из переменной типа Word.
|
Пожалуйста, только вот не уверен, что в Вашем Паскале пройдет команда GetDate с тем же набором параметров, что у меня (год, месяц, число, день недели). Может закапризничать.
Код:
Uses DOS,CRT;
Var
S:String[20];
S1:String;
i:Byte;
Y,M,D,DW:Word;
Begin
ClrScr;
S:='';
For i:=1 to 16 do S:=S+'$';
Writeln(S);
For i:=1 to 8 do
begin
Delete(S,4+i,1);
Insert(' ',S,4+i);
end;
Writeln(S);
GetDate(Y,M,D,DW);
STR(Y,S1);
Delete(S,7,4);
Insert(S1,S,7);
Writeln(S);
ReadKey
End.