Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
Другие темы раздела
PascalABC.NET Олимпиадная задача по программированию. PascalABC.NET. Задача С. Считалка Ирочка попросила маму придумать новую считалочку. Мама тут же ей "выдала". Пусть в кругу N человек. Это число N будем изменять следующим образом: если число четное, то разделим его на 2, если... https://www.cyberforum.ru/ pascalabc-net/ thread2567526.html Проблема с real PascalABC.NET
В чём проблема? program atlas2; var d, n, x, a,b:real; begin writeln('Введите n, d'); readln(n,d); x:=(sqr(n+d)/0.75); if x<1 or x>=5
PascalABC.NET Массивы https://www.cyberforum.ru/ pascalabc-net/ thread2567475.html
Как Ссылка удалена. сделать?
PascalABC.NET Вычислить сумму ряда. https://www.cyberforum.ru/ pascalabc-net/ thread2567453.html
не понимаю что делать с Ссылка удалена.помогите пожалуйста решить
Бинарные деревья PascalABC.NET
Создать бинарное дерево. Определить, содержит ли оно заданное значение. Помогите с кодом
PascalABC.NET "Exec()" не работает Запускаю программу с помощьюexec() а она запускается (появляется окошко) и сразу закрывается. Код запускаемой программы: var nn := 5; steps := 10; begin var (Field, Field1) := (new... https://www.cyberforum.ru/ pascalabc-net/ thread2567372.html
PascalABC.NET Где разместить данные? https://www.cyberforum.ru/ pascalabc-net/ thread2567353.html
Подскажите, где в интернете можно разместить какой-либо файл или информацию, что бы её всегда можно было достать программкой на паскале?
Создание установщика PascalABC.NET
Как можно сделать установщик, извлекающий из себя в папки файлы?
PascalABC.NET Перевести код с с++ на Pascal.abc.net Ребят , тема такая. Я учусь в 9 классе и уже несколько знаю с++( да, да, в 9 и с++, также с-фундамент). И я хочу стать программистом.Но у меня проблема - проетная деятельность, И поскольку в школе мы... https://www.cyberforum.ru/ pascalabc-net/ thread2567304.html PascalABC.NET Эмуляция нажатия клавиш на клавиатуре в PascalABC.NET https://www.cyberforum.ru/ pascalabc-net/ thread2567303.html
Можете написать программу ,которая будут нажимать на Space (Пробел) с некоторым промежутком. Мне это надо для выполнение задания в игре Hyper Light Drifter. В задание нужно сделать серию рывков...
PascalABC.NET Вычисление рабочих дней между датами
Нужно написать программу для определения количества рабочих дней между двумя датами (не используя TDate и TCalendar)
PascalABC.NET ABCNET или кроссплатформенный PABCSystem https://www.cyberforum.ru/ pascalabc-net/ thread2566689.html
ABCNET - проект, призванный распространить PABCSystem-подобный функционал на весь NET и обеспечить пользователей PascalABC.NET данным функционалом за пределами данного языка. Минимальные...
Status 418
Эксперт Python
2182 / 1274 / 394
Регистрация: 26.11.2017
Сообщений: 3,555
Записей в блоге: 1
10.01.2020, 12:31 0

Олимпиадная задача по программированию. PascalABC.NET. Задача L. Переключение между окнами - PascalABC.NET - Ответ 14162263

10.01.2020, 12:31. Показов 4647. Ответов 2
Метки (Все метки)

Лучший ответ Сообщение было отмечено sadfasfsad как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
begin
  Reset(input, 'input.txt');
  var a := new List<string>;
  var p := 0;
  loop ReadlnInteger do
  begin
    var s := ReadString;
    if s.StartsWith('Run') then
    begin
      a.Add(s[5:]);
      p := a.Count - 1;
    end
    else
      p := (p + s.Count(i -> i = '+')) mod a.Count;
    a[p].Println
  end
end.


Вернуться к обсуждению:
Олимпиадная задача по программированию. PascalABC.NET. Задача L. Переключение между окнами PascalABC.NET
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.01.2020, 12:31
Готовые ответы и решения:

Олимпиадная задача по программированию. PascalABC.NET. Задача С. Считалка
Ирочка попросила маму придумать новую считалочку. Мама тут же ей &quot;выдала&quot;. Пусть в кругу N...

Олимпиадная задача по программированию. PascalABC.NET
Здравствуйте, я готовлюсь к школьной олимпиаде по информатике, не могу решить задачу (85 баллов из...

Олимпиадная задача по программированию. PascalABC.NET
Вася с Петей и Колей заработали много денег. Чтобы не мучиться с дележкой, они решили, что сначала...

Олимпиадная задача по программированию. PascalABC.NET
Найти количество целых решений, удовлетворяющих неравенству: A ≤ B*x + C ≤ D. Формат ввода В...

2
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.01.2020, 12:31

Олимпиадная задача по программированию
Помогите написать программу для решения следующей задачи (из Всесибирской Открытой Олимпиады...

Олимпиадная задача по программированию: Таджикские имена
Отсортировать N слов по алфавиту. Разделить по группам те которые заканчиваются на &quot;хон&quot;,...

Олимпиадная задача по программированию.Ошибка в моем коде
Здравствуйте, буду краток, поэтому...задача: Узник пытается бежать из замка, который состоит из MN...

Переключение между окнами
Здравствуйте. Недавно начал изучать Qt. Создал 2 MainWindow окна (соответственно 2 ui файла и...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru