Question

Составить блок-схему и алгоритм на языке программирования Паскаль: Вычислите остаток денежных средств после покупки товара стоимостью Х рублей, при наличии У рублей.

Answer 1

Ответ:

Uses crt;

 

var a,b,c,d,e,f:integer;

 

begin

  Writeln('Стоимость товара:');

  Write('Руб. = ');readln(a);

  Write('Коп. = ');readln(b);

  Writeln('Товар доставлен. С тебя ',a,'-руб., ',b,'коп. Плати бабло О_о');

  Writeln('Оплата: ');

  Write('Руб. = ');readln(c);

  Write('Коп. = ');readln(d);

  Writeln('Дай пересчитать. ');

  e:=c-a;  f:=d-b;

  If f<0 then begin e:=e-1; f:=f+100; end;

  If e<0 then Writeln('Чувак , да у тебя бабла не хватает . Кинуть нас решил ? Пшел вон .') else

  begin

  Writeln('Платеж принят: ',c,'-руб., ',d,'-коп.');

  writeln('Держи сдачу: ',e,'-руб., ',f,'-коп.')

  end;

end.

Объяснение: Код немножко с юмором, зато правильный

Answer 2

Их много