Определить, верно ли, что сумма цифр числа больше 10

@Sting73 · Регистрация: 22.06.2012

Author24 — интернет-сервис помощи студентам

[PASCAL]1. Дано натуральное число.
• Верно ли, что сумма его цифр больше 10?
• Верно ли, что количество его цифр есть четное число?

@Puporev · 22.06.2012, 19:00

Pascal

uses crt;
var a:longint;
    k,s:byte;
begin
clrscr;
repeat
write('Введите натуральное число a=');
readln(a);
until a>0;
k:=0;
s:=0;
repeat
s:=s+a mod 10;
k:=k+1;
a:=a div 10;
until a=0;
write('Сумма цифр=',s);
if s>10 then writeln(' она больше 10')
else writeln(' она не больше 10');
write('Количество цифр=',k);
if k mod 2=0 then writeln(' оно четное')
else writeln(' оно не четное');
readln
end.

@Sting73 0 / 0 / 0 Регистрация: 22.06.2012 Сообщений: 18
		1
	Определить, верно ли, что сумма цифр числа больше 10 22.06.2012, 18:31. Показов 917. Ответов 1 Метки нет (Все метки) [PASCAL]1. Дано натуральное число. • Верно ли, что сумма его цифр больше 10? • Верно ли, что количество его цифр есть четное число? 0

	22.06.2012, 19:00