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('Nemáš na to :( ' )
else writeln('Kup si to :)')
end;
end.     
     
          
          
          
Comments: