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 obsahp-cena<0 then writeln('na tohle už nemáš Emotikona frown')
else writeln('Kup si to Emotikona smile')
end;
end.
          
          
          
Comments: