------------------------------------------------------------------
program znak;
var
a:real;
s:boolean;
begin
writeln('Введите число');
read(a);
s:=(a>0);
writeln(s);
end.
<span>5^(5-5)=1
5 в степени (5-5) значит в нулевой степени равно 1</span>
1.ОДИН МИЛЛИОН ОДНА ТЫСЯЧА СТО ДЕСЯТЬ
2.ОДИН МИЛЛИОН СТО ДЕСЯТЬ ТЫСЯЧ СТО
3.СТО ДЕСЯТЬ ТЫСЯЧ ОДИННАДЦАТЬ
4.ОДИННАДЦАТЬ МИЛЛИОНОВ ОДНА ТЫСЯЧА СТО ДЕСЯТЬ
УДАЧИ!!!
10000+4000+600+50..........