Witam, na początku chciałbym zaznaczyć że jestem kiepskim programistą, muszę napisać zadanie w pascalu mianowicie nie wiem gdzie jest błąd
Treść zadania:
Tata Krysi pracuje w cukierni. Każdego dnia przynosi do domu n pudełek z cukierkami. W i-tym pudełku znajduje się ai cukierków. Krysia może wybrać jedno z pudełek i o ile jest tam parzysta liczba cukierków, może je wszystkie zjeść. Jeżeli natomiast w wybranym pudełku jest nieparzyście wiele cukierków, trafiają one do brzuszka jej młodszego brata, Adasia. Które pudełko ma wybrać Krysia, aby zjeść jak najwięcej cukierków?
Moje przemyślenia :
program Cukierki;
var
a,p,i,b,j,s:integer;
begin
j:=0;
write('podaj liczbe pudelek');
read(a);
for i:=1 to a do
begin
writeln('podaj liczbe cukierkow w opakowaniu');
read(x);
if(s>j)and(s mod 2=0) then p:=s;
end;
writeln(p);
end.
dodanie znacznika <code class="pascal"> - Furious Programming