Var ars:array[1..50] of string; ark:array[1..50] of integer; s:string; i,n,k,j:integer; begin readln(n); k:=0; for i:=1 to n do begin; readln(ars[i]); for j:=1 to 4 do delete(ars[i],1,pos(' ',ars[i])); s:=ars[i]; if (s[1]='6') or (s[1]='7') or (s[1]='8') then begin; inc(k); ark[k]:=i; end; end; writeln(k); for i:=1 to k do writeln(ark[i]); end.
Пример ввода: 2 Петров Петр Петрович 10 6 2007 Иванов Иван Иванович 10 2 2007 Пример вывода: 1 1
Var
ars:array[1..50] of string;
ark:array[1..50] of integer;
s:string;
i,n,k,j:integer;
begin
readln(n);
k:=0;
for i:=1 to n do
begin;
readln(ars[i]);
for j:=1 to 4 do
delete(ars[i],1,pos(' ',ars[i]));
s:=ars[i];
if (s[1]='6') or (s[1]='7') or (s[1]='8') then
begin;
inc(k);
ark[k]:=i;
end;
end;
writeln(k);
for i:=1 to k do
writeln(ark[i]);
end.
Пример ввода:
2
Петров Петр Петрович 10 6 2007
Иванов Иван Иванович 10 2 2007
Пример вывода:
1
1
#include <sstream>
#include <fstream>
#include <string>
#include <vector>
#include <deque>
#include <queue>
#include <stack>
#include <set>
#include <map>
#include <algorithm>
#include <functional>
#include <cstring>
#include <utility>
#include <bitset>
#include <cmath>
#include <cstdlib>
#include <ctime>
#include <cstdio>
#include <climits>typedef unsigned long long ulol;
typedef long long lol;
typedef long int li;#define mp make_pair
#define F first
#define S second
#define sqr(a) ( (a) * (a) )
#define pb push_back
#define INF 999999999
#define ret(a) cout << endl; system("pause"); return(a)
//#define ret(a) return(a)using namespace std;int main()
{
lol n;
cin >> n;
vector<lol> ar(n);
for(int i = 0 ; i < n ; i ++)
cin >> ar[i];
for(int i = 0 ; i < n ; i += 3)
cout << i+1 << '-' << i+3 << ": " << ar[i]+ar[i+1]+ar[i+2] << endl;
ret(0);
}