Блок схему к "Вычислите произведение чисел от 6 до 11, используя цикол WHILE и For.Pascal..
Блок схему к "Вычислите произведение чисел от 6 до 11, используя цикол WHILE и For.Pascal..
Гость
Ответ(ы) на вопрос:
Гостьbegin writeln('введите целое число'); readln( a ); x:=a; s:=0; while ( x<>0 ) do begin s := s + (x mod 10); x := x div 10; end; - скелет программы
Не нашли ответ?
Похожие вопросы