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

@sergei3ru · Регистрация: 07.04.2010

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

Школьнику кажется, что он решил эту задачу, но тестирующая система почему-то не принимает его решение. Школьник думает, что это происходит оттого, что он выводит не то любое другое число, которое записано в правильных ответах.
Напишите программу, которая по ответу, записанному в тестирующей системе и по ответу школьника определяет, верно ли школьник решила задачу. Программа получает на вход два числа: ответ, записанный в тестирующей системе и ответ школьника. Программа должна вывести YES, если школьник дала верный ответ и NO в противном случае.
Ввод Вывод
11
-1 YES

3
1 NO

C++

#include<iostream>
using namespace std;
 
int main(){
    int sys, stud;
    while(true){
        cin>>sys>>stud;
        if(sys!=1&&stud!=1||sys==1&&stud==1) cout<<"\nYES\n";
        else cout<<"\nNO\n";
    }
}

@MayaNash · 15.10.2012, 19:35

Pascal

uses crt;
 
var sys,stud: integer;
 
 
begin clrscr;
while true do
 begin
 readln(sys,stud);
 if (sys <> 1) and (stud <> 1) or (sys = 1) and (stud = 1) then
  writeln('yes')
 else writeln('no');
 end;
readkey; end.

@sergei3ru · 15.10.2012, 22:58 **[ТС]**

Спасибо огромное, сейчас попробуем!

Добавлено через 5 минут
Отправляю на сайт...пишет Превышено максимальное время работы

Добавлено через 51 секунду
Может как-нибудь можно обойти некоторые операции...

Добавлено через 15 секунд
Может как-нибудь можно обойти некоторые операции...

Добавлено через 1 час 32 минуты
Медленно работает программа, есть другой способ ее решения...

Добавлено через 1 час 34 минуты
Есть еще способы, чтобы решить эту задачу, подскажите, пожалуйста!

@MayaNash · 16.10.2012, 09:16

sergei3ru, я просто перевела. превышение времени возникает потому что цикл бесконечен. но вы не сказали, сколько раз там должны считываться входные данные и вычисляться ответ.

@sergei3ru · 16.10.2012, 11:58 **[ТС]**

Так вроде один раз, в системе есть число и школьник вводит число, программа показала, да или нет и все, закончила работу, как можно короче ее сделать?Подскажите, пожалуйста!

@MayaNash · 16.10.2012, 12:43

Сообщение от sergei3ru

while(true)

тогда зачем тут это вообще?..

Добавлено через 36 секунд

Pascal

uses crt;
 
var sys,stud: integer;
 
 
begin clrscr;
readln(sys,stud);
if (sys <> 1) and (stud <> 1) or (sys = 1) and (stud = 1) then
 writeln('yes')
else writeln('no');
readkey; end.

@sergei3ru · 16.10.2012, 13:00 **[ТС]**

Все чудненько!
N Результат Время (с)
1 OK 0.000
2 OK 0.000
3 OK 0.004
4 OK 0.004
5 OK 0.004
6 OK 0.004

Добавлено через 1 минуту
Спасибо огромное, все теперь понятно!

@Lesovay · 10.10.2015, 19:31

Керра, Керра, Я пробовала ввести Вашу программу ,но у меня не работает .

@ZX Spectrum-128 · 10.10.2015, 20:35

Не по теме:

Lesovay, не верю! (С) Станиславский

@Cyborg Drone · 10.10.2015, 20:37

Lesovay, вероятнее всего, это всё оттого, что Вы, вместо того, чтобы учиться, скармливаете бездушному придурочному роботу со скверными привычками тексты программ, которые Вы толком не понимаете. Ну и, о придури роботов... Скормите ему вот такую гадость, ему понравится:

Pascal

var s, r: integer;
begin
  read(s, r);
  if (s <> 1) and (r <> 1) or (s = 1) and (r = 1)
    then write('yes')
    else write('no')
end.

@bormant · 11.10.2015, 10:58

Некропостеры :-)

Pascal

const NY: array [Boolean] of String[3] = ('NO','YES');
var s, r: Integer;
begin
  ReadLn(s,r);
  WriteLn(NY[(s=1) and (r=1) or (s<>1) and (r<>1)]);
end.

@sergei3ru 21 / 18 / 4 Регистрация: 07.04.2010 Сообщений: 806
	15.10.2012, 22:58 [ТС]	3
	Спасибо огромное, сейчас попробуем! Добавлено через 5 минут Отправляю на сайт...пишет Превышено максимальное время работы Добавлено через 51 секунду Может как-нибудь можно обойти некоторые операции... Добавлено через 15 секунд Может как-нибудь можно обойти некоторые операции... Добавлено через 1 час 32 минуты Медленно работает программа, есть другой способ ее решения... Добавлено через 1 час 34 минуты Есть еще способы, чтобы решить эту задачу, подскажите, пожалуйста! 0

@MayaNash 1294 / 465 / 151 Регистрация: 24.08.2011 Сообщений: 2,249
	16.10.2012, 09:16	4
	sergei3ru, я просто перевела. превышение времени возникает потому что цикл бесконечен. но вы не сказали, сколько раз там должны считываться входные данные и вычисляться ответ. 1

@sergei3ru 21 / 18 / 4 Регистрация: 07.04.2010 Сообщений: 806
	16.10.2012, 11:58 [ТС]	5
	Так вроде один раз, в системе есть число и школьник вводит число, программа показала, да или нет и все, закончила работу, как можно короче ее сделать?Подскажите, пожалуйста! 0

@sergei3ru 21 / 18 / 4 Регистрация: 07.04.2010 Сообщений: 806
	16.10.2012, 13:00 [ТС]	7
	Все чудненько! N Результат Время (с) 1 OK 0.000 2 OK 0.000 3 OK 0.004 4 OK 0.004 5 OK 0.004 6 OK 0.004 Добавлено через 1 минуту Спасибо огромное, все теперь понятно! 0

@Lesovay 0 / 0 / 0 Регистрация: 10.10.2015 Сообщений: 1
	10.10.2015, 19:31	8
	Керра, Керра, Я пробовала ввести Вашу программу ,но у меня не работает . 0

@ZX Spectrum-128
	10.10.2015, 20:35 #9
	Не по теме: Lesovay, не верю! (С) Станиславский 0

Опции темы

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

Решение