Программа: Кратна ли сумма цифр, трем?

Задача: Определить кратна ли сумма цифр двузначного числа трем?

PROGRAM kratno_li_trem;
	var a,b,c,sum :integer;
BEGIN
	Write ('Введите двузначное число:');
	ReadLn (a);
	b:=a div 10;
	c:=a mod 10;
	sum:=b + c;
	IF sum mod 3=0 
	THEN WriteLn('Сумма цифр кратна трем') 
	ELSE WriteLn('Сумма цифр НЕ кратна трем');
END.

Просмотрело: 2260

Возможно, Вы искали: