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: