Форум DL

My Profile

Здравствуйте, Михаил Семенович.
У меня не проходит задача из категории Базовое программирование, Сортировка,"Очень ПРОСТАЯ"31251 Шлягровский Вова, июнь 2005, 9 кл.

Если решаю одним способом, то не проходит второй тест, потому что массив не может быть 100 000. А вторым способом не проходит вообще. А у меня работает.
Помогите, пожалуйста, решить проблему.
Спасибо.

My Profile

Код? Ссылку на задачу?

My Profile

№ 13
Пример ввода:
s
s10 : string
...
15
longint
Пример вывода:
s10 : string;
...
s15 : longint
КАК ЭТО РЕШИТЬ

______________________
№ 13
Пример ввода:
s
s10 : string
...
15
longint
Пример вывода:
s10 : string;
...
s15 : longint
КАК ЭТО РЕШИТЬ

My Profile

Какую кодировку кириллического текста использовать для выполнения задач в курсе "Программирование на JAVA"?

My Profile

Вот решение задачи с "да/нет", которое прошло все тесты.

import java.io.*;        


public class test {

   public static void main(String[] args) throws FileNotFoundException, IOException {
        PrintWriter out;
        try (BufferedReader in = new BufferedReader(new InputStreamReader(new FileInputStream("input.txt"),"UTF-8"))) {
            String tempNumber;
            String answer = "нет";
            while ((tempNumber = in.readLine()) != null) {
               try{
                if(Integer.parseInt(tempNumber)==7){
                    answer = "да";
                }
               }catch(Exception e){}
            }               
            out = new PrintWriter(new BufferedWriter(new OutputStreamWriter(new FileOutputStream("output.txt", false),"cp1251")));
            out.print(answer);
            
        }
        out.flush();
        out.close();
    }

My Profile

Добрый день. возникла следующая проблема с решением задачи: не получается пройти первый тест несмотря на то, что у меня всё прекрасно работает. у меня почему-то в первом тесте подставляет знак вопрос перед program и пишет ошибку:
"Ошибка компиляции

----------
Compilation log:

17.10.2020 12:23:49,88

Compile errors:
[1,1] source.pas: Found '?' but declaration section or begin expected"

Ссылка и путь к задаче:
Экзамен\Контроль практики\4\Город, 15 ноября 2008, 1 - 4 кл\19
[url]https://dl.gsu.by/task.jsp?nid=1957051&cid=1191
[/url]
Моё решение:
[code]program white;
var x,y,h:integer; a: string;
begin
readln(a);
Begin
repeat
x:=Pos('+',a);
insert(UPPERCASE(a[x+1]),a,x+1);
Delete(a,x,1);
Delete(a,x+1,1);
until x=0
end;

Begin
repeat
x:=Pos('~',a);
Delete(a,x,1);
until x=0
end;

Begin
repeat
x:=Pos('!',a);
if x=0 then break;
Delete(a,x,1);
insert('1',a,x)
until x=0
end;

Begin
repeat
x:=Pos('@',a);
if x=0 then break;
Delete(a,x,1);
insert('2',a,x)
until x=0
end;

Begin
repeat
x:=Pos('#',a);
if x=0 then break;
Delete(a,x,1);
insert('3',a,x)
until x=0
end;

Begin
repeat
x:=Pos('$',a);
if x=0 then break;
Delete(a,x,1);
insert('4',a,x)
until x=0
end;

Begin
repeat
x:=Pos('%',a);
if x=0 then break;
Delete(a,x,1);
insert('5',a,x)
until x=0
end;

Begin
repeat
x:=Pos('^',a);
if x=0 then break;
Delete(a,x,1);
insert('6',a,x)
until x=0
end;

Begin
repeat
x:=Pos('&',a);
if x=0 then break;
Delete(a,x,1);
insert('7',a,x)
until x=0
end;

Begin
repeat
x:=Pos('*',a);
if x=0 then break;
Delete(a,x,1);
insert('8',a,x)
until x=0
end;

Begin
repeat
x:=Pos('(',a);
if x=0 then break;
Delete(a,x,1);
insert('9',a,x)
until x=0
end;

Begin
repeat
x:=Pos('-',a);
if x=0 then break;
Delete(a,x,1);
insert('o',a,x)
until x=0;
end;

writeln(a);
end.
[/code]