Powerdrax

Dėkoju, truputi dar reikėjo pakoreguoti, bet viskas gerai :)

permečiau akim, viena klaida sintaksinė užkliuvo, pačio kodo nenagrinėjau, pabandyk, gal padės ;)

Nepadėjo, vis tiek žymi klaidą. Šioje linijoje-var i,c,n:=integer;

Sveiki, gal kas galite padėti su siuo uždaviniu: 1. Viena cigaretė kainuoja a litų. Jaunuolis per dieną surūko b cigarečių. Po kiekvienų rūkymo metų, surūkytų cigarečių dienos norma i užauga c cigarečių. Parašykite programą kuri apskaičiuotų, kiek pinigų žmogus pavers sveikatai kenksmingais dūmais per n metų (tarkime, kad metai turi 365 dienas).

Bandžiau spęsti, bet meta klaida-syntax error expected but not found

Mano sprendimas:

program Noname0;

var i,c,n:=integer;

a,p,d,ats:=real;

begin

WriteLn('Iveskite vienos cigaretes kaina');

Readln(a);

writeln('Iveskite kiek cigareciu surukote per diena');

readln(i);

writeln('Keliomis cigaretemis kitais metais planuojate surukyti daugiau');

readln©;

writeln('Kiek metu planuojate rukyti');

readln(n);

d:=0;

ats:=0

while d<n do

begin

p:=a*i*365;

ats:=ats+p;

d:=d+1;

end;

writeln(ats);

readln();

readln();

end.

Yra kiek pamenu kinieciu alternatyva vShare