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