Составить прогр. На языке паскаль для определения суммы цыфр в числе…

Question

Составить прогр. На языке паскаль для определения суммы цыфр в числе, введенного с клавиатуры. Сост. Програму на языке паскаль для нахождения суммы всехчисел на отрезке [1; 10] Пожалуйста очень надо.

Answer 1

43

alex444

06 марта 2023

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: