Программист решал задачу "Дано семизначное натуральное число. Найти сумму цифр этого числа" и поторопился, перепутав строки в программе. Расставьте строки в правильном порядке. Program N; var x, S, i: integer; begin readln(x); S := 0; for i := 1 to 7 do begin S := S + x mod 10; x := x div 10; end; writeln(S); end.
Логотип SimpleЦДЗ

Похожие

Задание

Программист решал задачу "Дано семизначное натуральное число. Найти сумму цифр этого числа" и поторопился, перепутав строки в программе.

Расставьте строки в правильном порядке.

  • Program N;
  • var x, S, i: integer;
  • begin
  • readln\(x\);
    S := 0;
  • for i := 1 to 7 do begin
  • S := S + x mod 10;
    x := x div 10;
  • end;
  • writeln\(S\);
  • end.

Тот же тест