Krirtuba K Krirtuba Регистрация 7 Дек 2013 Сообщения 88 Репутация -2 Спасибо 0 Монет 0 3 Окт 2020 #1 Что делает данная программа? var n:integer; begin readln; writeln(1-(n mod 3+1)div 2) end.
qqqqwwwweeee Q qqqqwwwweeee Регистрация 13 Июн 2013 Сообщения 84 Репутация 0 Спасибо 0 Монет 0 3 Окт 2020 #2 считывает число с клавиатуры и выводит вычисленное выражение Позитивный голос 0
ваня12345 В ваня12345 Регистрация 1 Янв 2014 Сообщения 92 Репутация 0 Спасибо 0 Монет 0 3 Окт 2020 #3 Из 1 вычитает остаток от деления введённого числа на 3, увеличенный на единицу. Результат делит (нацело) на 2. Получившееся число -- выводит в консоль. Позитивный голос 0
Из 1 вычитает остаток от деления введённого числа на 3, увеличенный на единицу. Результат делит (нацело) на 2. Получившееся число -- выводит в консоль.
lFr0stl L lFr0stl Регистрация 19 Дек 2013 Сообщения 98 Репутация 0 Спасибо 0 Монет 0 3 Окт 2020 #4 Принимает число, подставляет его в формулу и считает Позитивный голос 0
Dimon D Dimon Регистрация 7 Окт 2012 Сообщения 107 Репутация 0 Спасибо 0 Монет 0 3 Окт 2020 #5 Вычисляет числа кратные 3. Если число делится на 3, то в результате будет 1 (т. е. истина). Если нет, то 0 (т. е. лож). Позитивный голос 0
Вычисляет числа кратные 3. Если число делится на 3, то в результате будет 1 (т. е. истина). Если нет, то 0 (т. е. лож).
qaqa Q qaqa Регистрация 21 Дек 2013 Сообщения 89 Репутация 0 Спасибо 1 Монет 0 3 Окт 2020 #6 я не программирую на паскале, но, судя по командам, пишет чето в консольной строке. Позитивный голос 0