Вопросы и ответы по работе с системой и мероприятиям, проводимым на портале

Задача 2.1 Линейные программы Задачник

 
Picture of Еськов Алексей Владимирович
Задача 2.1 Линейные программы Задачник
by Еськов Алексей Владимирович - Monday, 10 September 2018, 1:46 AM
 

Здравствуйте почему выдает ошибку, локально все решает. Проверял и PascalABC b FreePascal

var N,a,b,c,d,e:integer;

y,x:text;

begin

Assign(y,'input.txt');

reset(y);

Assign(x,'output.txt');

read(y,N);

rewrite(x);

b:=N div 100;

c:=(N mod 100) div 10;

d:=N mod 10;

e:=b+c+d;

a:=b*c*d;

writeln(x,e);

write(x,a);

close(x);

close(y);

end.

Picture of Лапшева Елена Евгеньевна
Re: Задача 2.1 Линейные программы Задачник
by Лапшева Елена Евгеньевна - Monday, 10 September 2018, 11:47 AM
 

Спасибо, мы посмотрим, в чем дело.

Picture of Лапшева Елена Евгеньевна
Re: Задача 2.1 Линейные программы Задачник
by Лапшева Елена Евгеньевна - Tuesday, 11 September 2018, 11:56 AM
 
Алексей Владимирович! Это были проблемы сервера. Теперь все должно быть нормально.
Picture of Еськов Алексей Владимирович
Re: Задача 2.1 Линейные программы Задачник
by Еськов Алексей Владимирович - Saturday, 15 September 2018, 2:14 AM
 

Спасибо за оперативность Елена Евгеньевна.