#include <iostream>
#include <vector>
using namespace std;
void solve(){
int n;
cin >> n;
vector<char> s(n);
for(auto &i : s) cin >> i;
for(int i = 0; i < n - 1; i++){
for(int j = i + 1; j < n - 1; j++){
if(s[i] == s[i+1] && s[j] == s[j+1]){
cout << "Solution is: " << i + 1 << " " << j + 1;
return;
}
}
}
cout << "No solution";
}
signed main(){
solve();
}
Program summa;
Uses crt;
Const m=20;
Var a:array[1..m] of integer;
i,s:integer;
Begin
For i:=1 to m do
a[i]:=random(101)-50;
For i:=1 to m do
s:=s+a[i];
If s>50 then writeln('Сумма = ',s) else
for i:= 1 to m do
Writeln('Элемент массива №',i,' равен ',a[i]);
End.
или
Program summa;
Uses crt;
Const m=20;
Var a:array[1..m] of integer;
i,s:integer;
Begin
For i:=1 to m do
Readln(a[i]);
clrscr;
For i:=1 to m do
s:=s+a[i];
If s>50 then writeln('Сумма = ',s) else
for i:= 1 to m do
Writeln('Элемент массива №',i,' равен ',a[i]);
End.
var
ch: array[1..100] of real;
i, n: integer;
s: real;
begin
repeat
inc(i);//+1
write($'Введите {i} число: ');
readln(ch[i]);//записываем в массив число
until ch[i] = 0;//проверяется условие,если число равно 0 то прекращаем ввод
write($'Введите,сколько чисел сложить:');
readln(n);
writeln;
writeln($'Вы ввели {i} чисел');
for i := 1 to n do
begin
s := ch[i] + s;//складываем числа n штук
end;
writeln($'Сумма чисел = {s}');
end.