Задание:
Составить прогр. На языке паскаль для определения суммы цыфр в числе, введенного с клавиатуры. Сост. Програму на языке паскаль для нахождения суммы всехчисел на отрезке [1; 10] Пожалуйста очень надо.
Решение:
uses crt; var a,x: integer; i,s: integer; beginclrscr; writeln ('Vvedite chislo'); readln (a); x: =a; s: =0; while (x<>0) dobegins: =s+(x mod 10); x: =x div 10; end; writeln ('Summa cifr chisla ',a,'=', s); readln; end. Сумма чисел от 1 до 10uses crt; var x,i: integer; beginclrscr; for i: =1 to 10 dox: =x+i; writeln ('Summa chisel=', x); readln; end.
Знаете другой ответ?