"Сдача"

@Ekkiel · Регистрация: 24.11.2012

Товар стоит a руб. b коп. За него заплатили c руб. d коп. Сколько сдачи требуется получить? Вводятся 4 числа: a, b, c и d. Необходимо вывести 2 числа: e и f, число рублей и копеек, соответственно.

Примеры

Входные данные
2
1
3
2
#
2
1
4
0

Выходные данные

1 1

#

1 99

Pascal

var a,c:longint;
b,d:word;
begin
read(a,b,c,d);
d:=(c*100+d)-(a*100+b);
if d<0 then write('0') else
write(d div 100,' ',d mod 100);
 
end.

В чём ошибка?

go · 24.11.2012, 17:16

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

В чём ошибка?

Я тоже хочу спросить в чем ошибка? С первого взгляда все верное.

@Zhexon · 24.11.2012, 17:17

3р 02коп - 2р 01коп = 1р 1коп
4р 00коп - 2р 01коп = 1р 99коп
все правильно

@Ekkiel · 24.11.2012, 17:33 **[ТС]**

Не проходит на 4 тестах.

@Zhexon · 24.11.2012, 17:42

напиши входные параметры, я проверю, на которых не проходит..

go · 24.11.2012, 17:44

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

Не проходит на 4 тестах.

Может быть входные параметры карявые?

@Ekkiel · 24.11.2012, 17:45 **[ТС]**

Zhexon, Я без понятия какие входные данные,на сайте не проходит 4 теста.

go · 24.11.2012, 17:47

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

d:word;

Здесь поменяй.

@Zhexon · 24.11.2012, 17:50

А если так? :

Pascal

var
  a,b,c,d :longint;
begin
  readln(a,b,c,d);
  d:=(c*100+d)-(a*100+b);
  if d<0 then writeln('0')
         else write(d div 100,' ',d mod 100);
  readln;
end.

@Ekkiel · 24.11.2012, 17:52 **[ТС]**

go, Абсурдно ,но раньше не проходило,сейчас прошло,спасибо)
Zhexon, Спасибо.

go · 24.11.2012, 17:53

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

go, Абсурдно

Я же говорю

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

входные параметры карявые

Поэтому знаковые числа нужны.

@Puporev · 24.11.2012, 17:55

Pascal

uses crt;
var a,b,c,d,e,f,s:integer;
begin
clrscr;
repeat
writeln('Введите стоимость товара в руб. и коп.');
readln(a,b);
until(a>=0)and(b>=0)and((a<>0)or(b<>0))and(b<=100);
repeat
writeln('Введите сколько заплатили в руб. и коп.');
readln(c,d);
until(c>=0)and(d>=0)and((c<>0)or(d<>0))and(d<=100)and(100*a+b-100*c-d<=0);
s:=100*c+d-100*a-b;
f:=s mod 100;
e:=s div 100;
write('Сдача составила ',e,' руб. ',f,' коп.');
readln
end.

go 3643 / 1375 / 243 Регистрация: 16.04.2009 Сообщений: 4,527
	24.11.2012, 17:16	2
	Сообщение от Ekkiel В чём ошибка? Я тоже хочу спросить в чем ошибка? С первого взгляда все верное. 0

@Zhexon 313 / 272 / 272 Регистрация: 25.09.2011 Сообщений: 477
	24.11.2012, 17:17	3
	3р 02коп - 2р 01коп = 1р 1коп 4р 00коп - 2р 01коп = 1р 99коп все правильно 0

@Ekkiel 0 / 0 / 0 Регистрация: 24.11.2012 Сообщений: 11
	24.11.2012, 17:33 [ТС]	4
	Не проходит на 4 тестах. 0

@Zhexon 313 / 272 / 272 Регистрация: 25.09.2011 Сообщений: 477
	24.11.2012, 17:42	5
	напиши входные параметры, я проверю, на которых не проходит.. 0

go 3643 / 1375 / 243 Регистрация: 16.04.2009 Сообщений: 4,527
	24.11.2012, 17:44	6
	Сообщение от Ekkiel Не проходит на 4 тестах. Может быть входные параметры карявые? 0

@Ekkiel 0 / 0 / 0 Регистрация: 24.11.2012 Сообщений: 11
	24.11.2012, 17:45 [ТС]	7
	Zhexon, Я без понятия какие входные данные,на сайте не проходит 4 теста. 0

go 3643 / 1375 / 243 Регистрация: 16.04.2009 Сообщений: 4,527
	24.11.2012, 17:47	8
	Сообщение от Ekkiel d:word; Здесь поменяй. 1

@Ekkiel 0 / 0 / 0 Регистрация: 24.11.2012 Сообщений: 11
	24.11.2012, 17:52 [ТС]	10
	go, Абсурдно ,но раньше не проходило,сейчас прошло,спасибо) Zhexon, Спасибо. 0

go 3643 / 1375 / 243 Регистрация: 16.04.2009 Сообщений: 4,527
	24.11.2012, 17:53	11
	Сообщение от Ekkiel go, Абсурдно Я же говорю Сообщение от go входные параметры карявые Поэтому знаковые числа нужны. 0

Опции темы