Question

Rezolvati va rog problema.Dau coroana pentru raspunsul corect
Intr-o seră, în fiece zi, înfloresc cu 15 flori mai multe decît în ziua precedentă,.În prima zi au inflorit 10 flori. Să se scrie un program care calculează cate flori au inflorit timp de o săptămînă.
prin a) for b) while c) repeat

Answer 1

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.