Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.94/47: Рейтинг темы: голосов - 47, средняя оценка - 4.94
0 / 0 / 0
Регистрация: 02.11.2015
Сообщений: 2

Программа должна вывести YES, если школьник дал верный ответ и NO в противном случае

02.11.2015, 07:43. Показов 9873. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В условии одной из задач на этом сайте написано: “Если данное четырехзначное число является симметричным, выведите 1, иначе выведите любое другое целое число”. Для проверки задачи используются заранее подготовленные примеры и правильные ответ на них

Школьнику кажется, что он решил эту задачу, но тестирующая система почему-то не принимает его решение. Школьник думает, что это происходит оттого, что он выводит не то любое другое число, которое записано в правильных ответах.

Напишите программу, которая по ответу, записанному в тестирующей системе и по ответу школьника определяет, верно ли школьник решил задачу.

Входные данные
Программа получает на вход два числа: ответ, записанный в тестирующей системе и ответ школьника.

Выходные данные
Программа должна вывести YES, если школьник дал верный ответ и NO в противном случае.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
02.11.2015, 07:43
Ответы с готовыми решениями:

Вывести YES, если школьник дал верный ответ и NO в противном случае
Перевести из Си++ на Паскаль Добрый день, нашел на сайте задачку, возможно ее перевести на Паскаль, помогите, пожалуйста! В условии...

Машина Тьюринга должна выдать 0, если число нулей больше и 1 – в противном случае
доброго времени суток Надо написать правила машины Тьюринга для решения задачи: На вход поступает последовательность из 0 и 1....

Если элемент четный, то запись должна быть зеленого цвета, в противном случае лилового
Введите элементы массива в список. При выборе элемента должно быть указано, элемент четный или не четный. Если элемент четный, то запись...

4
Почетный модератор
 Аватар для Puporev
64315 / 47611 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
02.11.2015, 07:49
Что-то не врубился в чем прокол...
Pascal
1
2
readln(a,b);
id a=b then write('YES') else write('NO');
0
Платежеспособный зверь
 Аватар для кот Бегемот
8966 / 4389 / 1655
Регистрация: 28.10.2009
Сообщений: 11,647
02.11.2015, 09:04
Pascal
1
2
3
4
5
6
7
8
9
var
a,b:integer;
begin
writeln ('otvet shkolnika');
readln (a);
writeln ('otvet systemy');
readln (b);
if (a=b)and (a=1)then writeln ('yes')else writeln ('no');
end.
Может, так?
0
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,433
02.11.2015, 10:51
Вывести YES, если школьник дал верный ответ и NO в противном случае
0
Модератор
Эксперт Pascal/DelphiЭксперт NIX
 Аватар для bormant
7816 / 4635 / 2837
Регистрация: 22.11.2013
Сообщений: 13,158
Записей в блоге: 1
02.11.2015, 12:37
Лучший ответ Сообщение было отмечено Jerry J как решение

Решение

Можно чуть короче, чем в той теме:
Pascal
1
2
3
4
5
6
const NY: array [Boolean] of String[3] = ('NO','YES');
var s, r: Integer;
begin
  ReadLn(s,r);
  WriteLn(NY[(s=1) xor (r<>1)]);
end.
Добавлено через 1 минуту
Цитата Сообщение от Puporev Посмотреть сообщение
не врубился в чем прокол
1 и 1 дают yes
не 1 и не 1 дают yes
остальные варианты дают no
1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
02.11.2015, 12:37
Помогаю со студенческими работами здесь

В случае неверного ответа пользователя программа должна выводить правильный ответ.
Написать программу проверки знания даты основания Санкт-Петербурга(1703г). В случае неверного ответа пользователя программа должна...

Если в наборе имеются числа, меньшие K, то вывести TRUE, в противном случае вывести FALSE
Pascal. Даны целые числа K, N и набор из N целых чисел. Если в наборе имеются числа, меньшие K, то вывести TRUE; в противном случае вывести...

Если в наборе все числа одинаковые, то вывести True; в противном случае вывести False
Мозгов не хватает додумать, парни помогите) #include &lt;stdio.h&gt; int main () { int N, i, a, R=0; //a-кол-во чисел, i - счётчик, R-...

Вывести True если среднеарифметическое является ли целым числом, в противном случае вывести False.
Даны два числа x, y целого типа. Вывести True если среднеарифметическое является ли целым числом, в противном случае вывести False.

Дана строка. Если скобки расставлены правильно, то вывести число 1. В противном случае вывести всю строку
Дана строка, содержащая несколько круглых скобок. Если скобки расставлены правильно (то есть каждой открывающей соответствует одна...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Ритм жизни
kumehtar 27.02.2026
Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек SDL3 и Box2D из исходников с помощью CMake и Emscripten
8Observer8 27.02.2026
Недавно вышла версия SDL 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual. . .
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами
8Observer8 20.02.2026
Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .
Конвертировать закладки radiotray-ng в m3u-плейлист
damix 19.02.2026
Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI
Eddy_Em 18.02.2026
Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru