Код не проходит тестирование - Free Pascal
Формулировка задачи:
Приветствую всех!
Имеется такая задача :
Из условия ясно , что цена карандаша будет 3 , ручки 5 , фломастера 12 . Я написал программу для решения.
Программа проходит до 9 теста и на нем проваливается . Помогите определить , что не так ?
p.s Есть ли какие нибудь статьи по поводу того , как красиво оформлять код на Паскале ? Т.е количество отступов и пр. Заранее спасибо всем.
Однажды, посетив магазин канцелярских товаров, Вася купил X карандашей, Y ручек и Z фломастеров. Известно, что цена ручки на 2 рубля больше цены карандаша и на 7 рублей меньше цены фломастера. Также известно, что стоимость карандаша составляет 3 рубля. Требуется определить общую стоимость покупки.
Входные данные
В единственной строке входного файла INPUT.TXT записаны три натуральных числа X, Y и Z через пробел, каждое из которых не превышает 10^9.Выходные данные
В выходной файл OUTPUT.TXT выведите одно целое число – стоимость покупки в рублях.var a , b , c : integer; { а - количество карандашей , b - количество ручек , с - количество фломастеров } begin assign(input,'input.txt'); assign(output,'output.txt'); reset(input); rewrite(output); read(a,b,c); write( (a*3) + (b*5) + (c * 12) ); end.
Решение задачи: «Код не проходит тестирование»
textual
Листинг программы
var a, b, c: longint; begin a := 999999999; b := a; c := a; writeln(a * 3 + b * 5 + c * 12); end.
Объяснение кода листинга программы
- Объявлены три переменные типа longint: a, b, c.
- Значение переменной a установлено в 999999999.
- Значение переменной b установлено в значение переменной a.
- Значение переменной c установлено в значение переменной a.
- Выполняется операция умножения и результат записывается в переменную writeln.
- Значение переменной writeln выводится на экран.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д