Вопрос по информатике:
Паскаль абс. нет
у меня выводит строка имела неверный формат (строка где tovar)
var money, cost,summa,tovar : real;
count : integer;
begin
writeln('Введите исходные данные: ');
writeln('Какой товар вы покупаете? ');
readln(tovar);
writeln('По какой цене? ');
readln(cost);
writeln('Сколько штук? ');
readln(count);
summa := cost*count;
writeln('Ваш товар - ', tovar, '. Стоимость покупки: ',summa:0:2);
writeln('Сколько денег даете? ');
readln(money);
if money > summa then writeln('Ваша сдача: ', money-summa) else
end.
- 09.06.2017 15:44
- Информатика
- remove_red_eye 6133
- thumb_up 47
Ответы и объяснения 1
Var
money,cost,summa: real;
count : integer;
tovar : string;
begin writeln('Введите исходные данные: ');
writeln('Какой товар вы покупаете? ');
readln(tovar);
writeln('По какой цене? ');
readln(cost);
writeln('Сколько штук? ');
readln(count);
summa := cost*count;
writeln('Ваш товар - ', tovar, '. Стоимость покупки: ',summa:0:2);
writeln('Сколько денег даете? ');
readln(money);
if (money >= summa)
then writeln('Ваша сдача: ',money-summa)
else writeln ('Вам нехватает ',summa-money) end.
- 01.01.1970 00:00
- thumb_up 50
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.