могу ответить только на первый т.к. не очень сильно знаю c++
#include <bits/stdc++.h>
using namespace std;
int main()
{
ifstream fin("c:\input.txt");
string s,sr;
int j;
bool f=true;
while(getline(fin,s))
{
for(int i=0;i<s.length();++i)
{
if((s[i]>='a' && s[i]<='z') ||
(s[i]>='A' && s[i]<='Z'))
{
sr=sr+s[i];
f=true;
}
}
}
cout<<sr;
}
PascalВыделить код
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
uses crt;
const n=10;
var i,j,k:integer; max,min:integer; S,buf:real; f:text;
const x:array[1..n] of integer=(5,-11,7,19,-16,3,-8,4,10,2);
begin
assign(f,'array.pas');
rewrite (f);
writeln (f);
writeln('массив 5,-11,7,19,-16,3,-8,4,10,2');
min:=0;
max:=0;
writeln;
writeln;
For i:=1 to 9 do
if x[i] mod 2 = -1 then if x[i]<x[i+1] then begin
min:=min+x[i];
write ('минимальное нечетное x[',i,']=' ,x[i]);
end;
writeln; {сумма элементов массива между минимальным нечетным и максимальным четным}
For i:=1 to 9 do
if x[i] mod 2 = 0 then if x[i]>x[i+1] then begin
max:=max+x[i];
write ('максимальное четное x[',i,']=' ,x[i]);
end;
writeln;
writeln;
S:=0;
For i:=2 to 9 do
begin
S:=S+x[i];
writeln('сумма элементов между min нечетным и max четным = ',S:4:0);
end;
writeln;
writeln;
{поменять местами максимальное четное с минимальным нечетным}
end.