Вычислите произведение чисел от 6 до 11, используя цикол WHILE.Pascal побыстрее
Answers & Comments
falco017
Вот скелет программы begin writeln('введите целое число'); readln( a ); x:=a; s:=0; while ( x<>0 ) do begin s := s + (x mod 10); x := x div 10; end;
Answers & Comments
begin writeln('введите целое число'); readln( a ); x:=a; s:=0; while ( x<>0 ) do begin s := s + (x mod 10); x := x div 10; end;