Program TxtManipula;
uses crt;
var txt:string;
begin Writeln('Введите строку');
Readln(txt);
Writeln('Длина строки:',length(txt));
Insert('о',txt,2);
Writeln(txt);
Delete (txt.length(txt),1);
Writeln(txt);
Readln();
<span>end.
PS: скомпилированный файл TxtManipula.exe в архиве, это вставленный документ ворд. Просто поменяй расширение docx на zip.</span>
Почта, телеграф, радио, телефон, телевизор, компьютер. Вроде так
Var a,b,s:real;
begin
Writeln('Привет,я-alconafft');
a:=5;
b:=-3.5;
s:=a+b;
s:=2*s-b;
writeln('s= ',s);
end.
Программа получает на вход целые числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести два числа: длину последовательности и сумму положительных чётных чисел, не превосходящих 256.