Пожалуйста помогите решить желательно все или хотя бы одну (P.S

Question

Пожалуйста помогите решить желательно все или хотя бы одну (P.S. Программа для программы Turbo Pascal) 1. Написать программу, которая предлагаетввести 3 значное число и находит сумму его цифр.

Answer 1

71

korablef

17 марта 2023

1 и 2 работают до макс. Значения integer, а не только трехзначные var i,s: integer; beginreadln (i); while i>0 do begins: =i mod 10; i: =i div 10; end; writeln (s); end. var i: integer; beginreadln (i); while i>0 do beginwrite (i mod 10); i: =i div 10; end; end. var a,b,c: integer; beginreadln (a,b,c); writeln ('Sum=',a+b+c,' Proizvedenie=',a*b*c,' Sr.arifm=', (a+b+c) /3); end.

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

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

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

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

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