Pascal ABC
program perevod;
uses crt;
var
a,i,error:integer;
s,d:string;
begin
write(<em>'Введите число: '</em>);
readln(a);
str(a,s);
for i:=1 to length(s) do d:=s[i]+d;
val (d,a,error);
write(<em>'Ответ: ',</em>a);
end.
Он есть где?
Проверь название файла. Именно файла. Вдруг опечатка.
Попробуй ввести полный путь в тексте программы.
Посмотри есть ли русские буквы в пути к файлу.
Если файл *.txt лежит не рядом с самой программой, положи его в папку с программой.
<span>Или просто положи его в корень C и укажи путь в коде.</span>
500 байт = 4000 бит, т.к в одном байте 8 битов(значит умножаем 500 на 8, получаем 4000).
5 кб = 5120 байт, т.к в 1 кб 1024 байтов, значит умножаем 5 на 1024, получаем 5120
87 гб = 93415538688 байт, т.к в 1 гб 1024 мб, в 1 мб 1024 кб,в 1 кб 1024 байт. Получаем 1024*1024*1024(1024 в кубе) = 1073741824 байт в 1 гб. Умножаем 87 на 1073741824 = 93415538688 байт
7 мб = 58720256 бит, т.к в 1 мб 1024 кб, в одном кб 1024 байт, в одном байте 8 бит. Значит 1024*1024*8=8388608 бит в одном мб. 7*8388608=58720256 бит в 7 мб
46 байт = 0,000044 мб. Байт - 0,0009765625 часть кб(1 разделить на 1024, т.к в одном кб 1024 байт). Опять-таки делим получившееся число(0,000976...) на 1024, получаем 0,00000095367431640625. Теперь мы знаем, что 1 кб - 0,00000095367431640625 часть Мб, умножаем 0,00000095367431640625 на 46, получаем 0,0000438690185546875, можно, думаю, округлить. Получим как раз-таки, округлив, 0,000044.
700000 бит = 85,45 кб. Получили это число, разделив 700000 на 8(в 1 байте 8 бит). Получаем 87500 байтов. В 1 кб 1024 байтов. Делим 87500 на 1024, получаем 85,44921875 кб в 700000 битах. Округлив, получаем 85,45 кб.
Program treug;
var a,b,c,max,min,srd,d:real;
begin
writeln('Введите стороны треугольника');
readln(a,b,c);
If (a+b>c) or (b+c>a) or (a+c>b) then
begin
if (a=b) or (b=c) or (a=c) then write ('Треугольник равнобедренный');
if (a=b) and (b=c) then write ('Треугольник равносторонний');
end;
<span>begin</span>
Sort<span>(</span>a<span>,</span>b<span>,</span>c<span>,</span>max<span>,</span>min<span>,</span>srd<span>)</span>;
d<span>:=</span>min<span>*</span>min<span>+</span>srd<span>*</span>srd;
e<span>:=</span>max<span>*</span>max;
<span>if</span> d>e <span>then</span><span>writeln</span><span>(</span><span>'Это остроугольный треугольник!'</span><span>)</span>
<span>else</span><span>if</span> d<e <span>then</span><span>writeln</span><span>(</span><span>'Это тупоугольный треугольник!'</span><span>)</span>
<span>else</span><span>if</span> d<span>=</span>e <span>then</span><span>writeln</span><span>(</span><span>'Это прямоугольный треугольник!'</span><span>)</span>;
<span>end</span>;
else writeln ('Такого треугольника не существует');
end.