Var a:string;
i,n:integer;
begin
write('Введите слово ');
readln(a);
n:=length(a);
writeln('Введите номер буквы ');
readln(i);
delete(a,i,1);
writeln(a);
readln;
<span>end.</span>
Алгоритм - это метод (способ) решения задачи, записанный по определённым правилам, оьеспечивающим однозначность его понимания и исполнения при всех значениях исходных данных.
Свойства алгоритма
1) дискретность - разбиение алгоритма на последовательность отдельных законченный действий которые расположены в порядке их выполнения.
2)тосность - строго опреленная последовательность шагов. Строгая последовательность выполняемых действий.
3)определенность- каждая команда алгоритма должно быть понятно исполнителю.
4)результативность - алгоритм должен выполниться за конечное число символов.
5) массовость - каждый алгоритм разработанный для решения некоторых задачи, должен быть применил для решения задач этого типа при всех допустимых значениях исходных данных.
Файл это объект в виде совокупностм данных, хранящихся во внешней памяти компьютера.
N=256 I=8 бит(1 символ)
информационый объем равен 1024*8=8192 бита
Var a,b,c,x,a1,b1,c1:integer;
begin
writeln('Введите стоимость тетрадей');
readln(a1);
writeln('Введите кол-во тетрадей');
readln(a);
writeln(''Введите стоимость ручек');
readln(b1);
writeln('Введите кол-во ручек');
readln(b);
writeln('Введите стоимость карандашей');
readln(c1);
writeln('Введите кол-во карандашей');
readln(c);
x:=(a*a1)+(b*b1)+(c*c1);
writeln(x' руб.',);
end.