2)Pascal
var s: string;
i, f, g: integer;
begin
writeln('Введите строку с угловыми скобками:');
readln(s);
f := pos('<', s);
if f = 0
then begin
write('Нет "<"');
if pos('>', s) = 0
then writeln('и ">"')
else writeln
end
else begin
g := 0;
for i := length(s) downto 1 do
if s[i] = '>'
then begin
g := i;
break
end;
if g = 0
then writeln('Нет ">"')
else if f > g
then writeln('">" левее "<"')
else begin
delete(s, f, g - f + 1);
writeln('Результат:');
writeln(s)
end
end
end.
Если гарантированно, что в тексте есть только по одному правильно расположенному символу "<" и ">", то совсем просто:
Pascal
var s: string;
begin
writeln('Введите строку с угловыми скобками:');
readln(s);
delete(s, pos('<', s), pos('>', s) - pos('<', s) + 1);
writeln('Результат:');
writeln(s)
end.
0
#include <iostream>
#include <fstream>
#include <ctime>
using namespace std;
int main() {
setlocale(LC_ALL, "Russian");
srand(time(NULL));
char buff[50];
int N;
char buffs[25];
cout << "Сколько будет элементов?(выберите четное число) ";
cin >> N;
ofstream fout("number.txt");
if (fout.is_open()) {
for (int i = 0; i < N; i++) {
fout << rand() % 10;
}
fout.close();
}
else {
cout << "Невозможно открыть файл";
}
cout << "Исходный файл: " << endl;
ifstream fin("number.txt");
fin >> buff; //считывание из файла
fin.close();
for (int i = 0; i < N; i++)
cout << buff[i] << " ";
cout << endl << endl;
cout << "Изменённый файл: " << endl;
ofstream del1("first.txt");
for (int i = 0; i < N / 2; i++) {
del1 << buff[i];
}
del1.close();
ifstream IL("number.txt");
IL >> buffs;
IL.close();
for (int i = 0; i < N / 2; i++) {
cout << buffs[i] << ' ';
}
return 0;
}
begin
readln(x);
y:=20-14*x*x+12*x;
writeln('y = ',y);
end.
Пример:
5
y = -270