Question

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

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.

Answer 2

Выходит, у вас есть проблема с синтаксисом в вашем коде на Pascal. В конкретном случае, у вас отсутствует блок "else" в операторе "if-then-else".

Вам нужно добавить какое-либо действие или вывод в блок "else". Например, вы можете вывести сообщение о том, что у вас недостаточно денег для покупки товара. Вот исправленный код:

scssCopy code
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
    writeln('У вас недостаточно денег для покупки товара.');
end.

После внесения этого изменения код должен работать должным образом.