Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  MamNaTo
Language: PASCAL
Code:
program MamNaTo;
uses crt;
var
  obsahp,cena,zbytek: integer;
begin
  writeln('Kolik máš v peněžence? ');
  Readln(obsahp);
  zbytek:=obsahp;
while zbytek>0 do
begin
  writeln('Jaká je cena zboží? ');
  Readln(cena);
zbytek:=zbytek-cena;
if zbytek<0 then writeln ('na tohle už nemáš. ')
else writeln ('kup si to. ')
end;
end.          
          
          
          
          
Comments: