Вівторок, 19.03.2024, 08:28
Головна Реєстрація Вхід
Вітаю Вас, Гість · RSS
Меню сайту
Статистика

Онлайн всього: 1
Гостей: 1
Користувачів: 0
Форма входу
 Кращі розв'язки
Задача A-Цифри
Шевчук Олександр
var f,ff:text;
    s:string;
    n,i,m:longint;
    b:boolean;
begin
 assign(f,'z1.dat');
 reset(f);
 assign(ff,'z1.sol');
 rewrite(ff);
 readln(f,n);
 b:=false;
 while not eof(f) do
  begin
   readln(f,m);
   m:=abs(m);
   str(m,s);
   if n=length(s) then begin for i:=1 to n-1 do write(ff,s[i],' '); writeln(ff,s[n]); b:=true; end;
  end;
 if b=false then writeln(ff,'no solution');
 close(ff);
 close(f);
end.

Задача B-Послідовність
Кондаков Олександр
#include <fstream>
using namespace std;
int a,d[10002];
int main()
{
   ifstream f("z2.dat");
   ofstream f1("z2.sol");
   while (1)
    {
      f>>a;
      if (f.eof()) break;
      if (a>0 && a<10001) d[a]=1;
    }
   for (int i=1; i<=10001; i++)
    if (d[i]==0) { f1<<i <<endl; break; }
   return 0;   
}

Задача C-Текст

Шумейко Максим
#include<iostream>
#include<string>
#include<cstdio>
using namespace std;
int main ()
{
    freopen("z3.dat","r",stdin);
   freopen("z3.sol","w",stdout);
    string a,b;
    long long k=0;
    while (!cin.eof())
    {
        getline(cin,a);b="";k=0;
        for (int i=0;i<a.size();i++)
        {
            if ((int(a[i])>96)&&(int(a[i])<125)) {k++;b+=a[i];} else {if(k>1) {cout<<b<<' ';k=0;b="";}else{k=0;b="";}}
        }
        if((k>1)&&(b!="")) cout<<b;
        a="";cout<<'\n';
    }
}
Copyright MyCorp © 2024
Пошук
Календар
«  Березень 2024  »
ПнВтСрЧтПтСбНд
    123
45678910
11121314151617
18192021222324
25262728293031
Архів записів
Друзі сайту
Обдаровані діти

Хмельницькі олімпіади

НМЦ ІКТ і ДН

Портал ХОІППО