отыскать сумму четырехзначного числа на языке паскаль

Отыскать сумму четырехзначного числа на языке паскаль

Задать свой вопрос
Виктория
Сумму разрядов ?
Evgenij Gecelevich
знаю только условие задачки
1 ответ
Program pro;
var k,a,sym:integer;
begin
readln(k);
while kgt;0 do 
begin 
a:=k mod 10; 
sym:=sym+a; 
 k:=k div 10; 
 end;
writeln('Сумма разрядов четырехзначного числа одинакова ',sym)
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт