Блок схему к "Вычислите произведение чисел от 6 до 11, используя цикол WHILE и For.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; - скелет программы