Question

Напишите программу для определения сдачи K руб. после покупки в магазине товара: перчаток стоимостью A руб., портфеля стоимостью B руб., галстука стоимостью C руб. Исходная сумма, выделенная на покупку D руб. В случае нехватки денег сдача получится отрицательной.(A,B,C,D- вводятся с клавиатуры).

заранее очень благодарна!!

Answer 1

var a, b, c, d : integer;
begin
writeln('Цена перчаток: ');
readln(a);
writeln('Цена портфеля: ');
readln(b);
writeln('Цена галстука: ');
readln(c);
writeln('Внесенная сумма: ');
readln(d);
writeln('Сдача: ', d-a-b-c)
end.

Answer 2

Я не виноват, что этот глупый сервис знания. ком не правильно копирует текст написанный в Pascal!!!!

Answer 3

Если вы используете двоеточие в конце строки, то не думаю что стоило использовать функцию writeln(), мне кажется лучше бы подошла write()

Answer 4

У меня стандарт.. И мне больше нравится writeln, да с таким же успехом можно использовать read вмеcто readln

Answer 5

Можете не сомневаться в моей информатике!

Answer 6

read и readln почти ничем не отличаются визуально, а вот writeln() переводит строку

Answer 7

var

a, b, c, d:real;

begin

writeln('Введите стоимость перчаток');

readln(a);

writeln('Введите стоимость портфель');

readln(b);

writeln('Введите стоимость галстука');

readln(c);

writeln('Введите сумму выделенную на покупку');

readln(d);

writeln('Сдача составляет: ', d-a-b-c);

end.

Answer 8

Лол..

Answer 9

Вот так Лол... Не парень если думаешь что я у тебя взял решение, то зря ты так думаешь. Можешь в профили у меня посмотреть, я прекрасно решаю задачи на паскаль. Просто в этой задачи решение НУ ОЧЕНЬ ЛИНЕЙНОЕ и вполне может совпадать.

Answer 10

Да, ладно.. Верю:)

Answer 11

Спасибо:) хах

Answer 12

))