Добавил:
bagiwow
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Паскаль / курсовые / Курсовая Pascal Компьютерная фирма / CISLO
.PAS uses dos;
var
a:string[10];
dey,mes,god,cc, z,x,c,v:word;
begin
getdate(z,x,c,v);
writeln('tecuca',z,' ',x,' ',c);
writeln('date');
readln(a);
val(copy(a,1,2),dey,cc);
val(copy(a,4,2),mes,cc);
val(copy(a,7,4),god,cc);
writeln(dey,' ',mes,' ',god);
readln;
end.
var
a:string[10];
dey,mes,god,cc, z,x,c,v:word;
begin
getdate(z,x,c,v);
writeln('tecuca',z,' ',x,' ',c);
writeln('date');
readln(a);
val(copy(a,1,2),dey,cc);
val(copy(a,4,2),mes,cc);
val(copy(a,7,4),god,cc);
writeln(dey,' ',mes,' ',god);
readln;
end.
Соседние файлы в папке Курсовая Pascal Компьютерная фирма