Question

Mam problem. W tym programie iloczyn liczb a i b program musi sam mnożyć, dopóki iloczyn nie dosięgnie 100 lub ponad stu, nie działa mi pętla, prosze o poprawienie tak aby program działal.

Answer 1

program iloczyn;
var
a,b,c,i: Integer;
begin
  writeln('Podaj a');
  readln(a);
  if (a mod 2)=0 then writeln('liczba parzysta')
     else writeln('liczba nieparzysta');
  writeln('Podaj b');
  readln(b);
  if (b mod 2)=0 then writeln('liczba parzysta')
     else writeln('liczba nieparzysta');
  c:=a*b;
  writeln('wynik=',c);
  if c<100 then
  writeln('Wykonaj iteracje tak długo dopóki wynik będzie równy 100 lub dprzekroczy 100');
  i:=1;
  while c<100 do
   begin
     i:=i+1;
     c:=c*c;
   end;
  writeln('wynik=',c);
  writeln('Iteracje wykonano ',i,' razy');
  readln;
end.

 

Dodałem jeszcze gratis liczbę iteracji ;).