Răspuns :
program seraCuFlori;
var ziua,flori:integer;
begin
writeln('a) rezolvare cu for ...');
ziua:=1; flori:=10;
for ziua:=2 to 7 do
flori:=flori+15;
writeln(' nr. de flori dupa o saptamana: ', flori);
writeln; writeln('b) rezolvare cu while ...');
ziua:=1; flori:=10;
while (ziua<7) do
begin
ziua:=ziua+1;
flori:=flori+15;
end;
writeln(' nr. de flori dupa o saptamana: ', flori);
writeln; writeln('c) rezolvare cu repeat ...');
ziua:=1; flori:=10;
repeat
ziua:=ziua+1;
flori:=flori+15;
until ziua>6;
writeln(' nr. de flori dupa o saptamana: ', flori);
end.
Vă mulțumim că ați ales să vizitați platforma noastră dedicată Informatică. Sperăm că informațiile disponibile v-au fost utile. Dacă aveți întrebări suplimentare sau aveți nevoie de sprijin, nu ezitați să ne contactați. Vă așteptăm cu drag și data viitoare! Nu uitați să adăugați site-ul nostru la favorite pentru acces rapid.