Размещено 4 года назад по предмету Информатика от komarinish

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

Ответ на вопрос

Ответ на вопрос дан Машенька200

Программа Вот:
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 раза, если не устраевает, можете воспользоваться другими ресурсами
1. Ответ на вопрос
  
  Ответ на вопрос дан Машенька200
  
  Пробелы не пропечатались, плохо
2. Ответ на вопрос
  
  Ответ на вопрос дан Машенька200
  
  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 ('Нет, сумма цифр не двузначное число');
3. Ответ на вопрос
  
  Ответ на вопрос дан Машенька200
  
  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');
4. Ответ на вопрос
  
  Ответ на вопрос дан Машенька200
  
  if B+c+d div k =0 then writeln('Сумма цифр числа кратна числу, введенному с клавиатуры') else writeln ('Сумма цифр не кратна числу, введенному с клавиатуры');
  End;
  End.