9. Дано трехзначное число. Определить: а) Является ли сумма его цифр двузначным числом;...

Question

9. Дано трехзначное число. Определить:
а) Является ли сумма его цифр двузначным числом;
b) Является ли произведение его цифр трехзначных числом;
c) Больше ли числа А произведение его цифр; число А – любое, оно вводится с клавиатуры;
d) Кратна ли пяти сумма его цифр;
e) Кратна ли сумма его цифр числу А; число А – любое, оно вводится с клавиатуры;
Числа вводить, пока не будет введён нуль.
Блок-схему и программу. Пожалуйста :)

Answer 1

Программа Вот:
Program z1;Var a,b,c,d,k:integer;BeginWriteln('Введите трехзначное число');REadln(a);While a<>0 do beginWriteln('Введите трехзначное число');REadln(a);b:=a div 100 mod 10;c:=a div 10 mod 10;d:=a mod 10;if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');Writeln ('Введите любое число');Readln (k);If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');End;End. 
Есть маленькая проблема в начале, не помню как прописывать, поэтому число первый раз нужно вводить 2 раза, если не устраевает, можете воспользоваться другими ресурсами  

Comments

Пробелы не пропечатались, плохо

---

Program z1;
Var a,b,c,d,k:integer;
Begin
Writeln('Введите трехзначное число');
REadln(a);
While a<>0 do
begin
Writeln('Введите трехзначное число');
REadln(a);
b:=a div 100 mod 10;
c:=a div 10 mod 10;
d:=a mod 10;
if b+c+d div 10 >0 then writeln('Сумма цифр- двузначное число') else writeln ('Нет, сумма цифр не двузначное число');

---

if b*C*D div 100 >0 then writeln('Произведение цифр- терхзначное число') else writeln ('Нет, произведение цифр не трехзначное число число');
Writeln ('Введите любое число');
Readln (k);
If b*c*d>k then writeln('Произведение цифр больше числа') else writeln('Произведение меньше числа');
if B+c+d div 5 =0 then writeln('Сумма цифр числа кратна 5') else writeln ('Сумма цифр не кратна 5');

---

if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');
End;
End.