Object Pascal, Turbo Pascal, Borland Pascal!
program forum;
type
Real=TIo[12..19];
var
a:TIo;
const
d=15;
e=17;
begin
Write('A= ');
Readln(a);
a:=Sqrt(d + e);
Writeln(ttttttttt,a,Press Enter to exit);
Readln;
end.
Для начинающих
Страница: 1
Сообщений 1 страница 1 из 1
Поделиться12008-10-02 15:58:25
Страница: 1