Паскаль абс. нет

у меня выводит строка имела неверный формат (строка где 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.

Question

Информатика

Клим

8 января, 14:00

Паскаль абс. нет

у меня выводит строка имела неверный формат (строка где 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.

+1

Ответы (1)

Знаете ответ на вопрос?

Эмилианка · Answer 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.