Работа с файлами. Взять из файла “1.txt” целое число и поместить в файл “11.txt” значение этого числа в степени 5. написать код на паскале очень надо прям
Все сильнее и сильнее высокие технологии входят в нашу жизнь. Компьютеризированные телескопы, множество гаджетов- это не воспаленная фантазия писателей, а наше время. Одной из таких "фантастических чуд"- роботы. Роботы все чаще и чаще заменяют человека на множествах работ, где "железному другу" проще, чем человеку. Посредством алгоритмов роботы решают самые запутанные задачи. К примеру, роботизированный станок используется на множествах фабрик, от производства конфет и до заводов по сборке автомобилей. Почти каждая деталь сделана специальным станком, подчиняющийся алгоритмам и командам, созданных человеком.
Перевод целого числа из десятичной системы счисления в систему с другим основанием делается путем последовательного целочисленного деления числа на основание системы с запоминанием остатков. Практика показывает, что если надо сделать перевод десятичного числа в системы по основанию 16, 8 и 2, то наименьшие трудозатраты получаются, когда перевод начинают с шестнадцатиричной системы, поскольку количество делений получается минимальным. 600 / 16 = 37 и остаток 8. 37 / 16 = 2 и остаток 5 Выписываем числа в обратном порядке, получаем 258. Итак, 600 (10) = 258 (16). Для перехода к двоичной системе каждую цифру шестнадцатиричного числа записываем в виде 4х разрядного двоичного числа (тетрады): 258 (16) = 0010 0101 1000 (2) или просто 1001011000 (незначащие нули опускаем). Для перехода к восьмеричной системе разбиваем справа налево двоичный код на триады (т.е. по три двоичных разряда) и каждую триаду заменяем восьмеричной цифрой. 1001011000 (2) = 1 001 011 000 (2) = 1130 (8)
program na;
var a: Text; c:string; b:real;
begin
assign(a,'C:1.txt');
reset(a);
read(a,c);
close(a);
assign(a,'C:11.txt');
rewrite(a);
b:=StrToInt(c)**5;
write(a,b);
close(a)
end.