|
|
|
|
|
|
|
Вернуться
| 1 Калёных Глеб Михайлович, 14 декабря 2009 г. 7:00:29 | |
|
ПАСИБО!
|
|
|
| 2 Делюкин Максим Викторович, 13 декабря 2009 г. 16:35:08 | |
{Реализация задачи №1 "A+B" на Pascal}
var a, b : longint;
begin
assign(input, 'input.txt');
reset(input);
assign(output, 'output.txt');
rewrite(output);
read(a, b);
write(a + b);
end.
=========
Это из раздела Новичкам.
Если твоё решение правильное, то проблему эту вылечит такое изменение: Read(А,x);
А вообще рекомендуется применять assign вот так, как в примере и читать словно с консоли.
Заметь, что переменные inpit и output предопределять не надо, они уже есть в системе. ;-)
|
|
|
| 3 Калёных Глеб Михайлович, 13 декабря 2009 г. 15:10:01 | |
|
Read(input,x) - так надо писать?
|
|
|
| 4 Делюкин Максим Викторович, 13 декабря 2009 г. 13:27:59 | |
Read(x);
Откуда х то читаем? =) С консоли? =)
|
|
|
| 5 Калёных Глеб Михайлович, 13 декабря 2009 г. 11:50:56 | |
Var A,B:text;x,sum:integer;Begin
Assign(A,'input.txt');
Assign(B,'output.txt');
Reset(A);
Read(x);Close(A);
If x=1 then sum:=198;
If x=2 then sum:=297;
If x=3 then sum:=396;
If x=4 then sum:=495;
If x=5 then sum:=594;
If x=6 then sum:=693;
If x=7 then sum:=792;
If x=8 then sum:=891;
If x=9 then sum:=990;
Rewrite(B);
Writeln(B,sum);
Close(B);
End.
|
|
|
| 6 Андрей Шмидт, 12 декабря 2009 г. 16:07:57 | |
а я вот попробую угадать)))
наверно потому что в конце программы написал readln() или что-то в этом роде)
|
|
|
| 7 Делюкин Максим Викторович, 12 декабря 2009 г. 9:03:01 | |
|
Я пока еще не телепат, и не админ здесь, чтобы угадывать, почему программа на первом тесте работает 3,5 секунды.
|
|
|
| 8 Делюкин Максим Викторович, 12 декабря 2009 г. 9:02:01 | |
|
А ты напиши свой код, а мы подумаем.
|
|
|
Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!
| | | |
