• 
  • 01 January 2021
  Информатика
  • Автор: frigate19

  

  Дано натуральное число верно ли что сумма его цифр меньше A? Верно ли что произведение его цифр больше B. Верно ли что это число x значное?составное условие и вложенный условный оператор не использовать.верно ли что его первая цифра превышает m?
  Дам много баллов. Решите пожалуйста через паскаль. и пожалуйста,по возможности было,видно,что решил ученик 9-10 класса.

• 
  • 01 January 2021
  • Ответ оставил: estengseant

  var
  q: string;
  a,i,z,g,b,x,m: Integer;
  begin
  z:=0;
  g:=1;
  readln(q,a,b,x,m);
  for i:=1 to length(q) do
  begin
  z:=z+q[i];
  end;
  if z<a then writeln('Верно, что сумма цифр меньше А') else
  writeln('Неверно, что сумма цифр меньше А');
  for i:=1 to length(q) do
  begin
  g:=g*q[i];
  end;
  if g>b then writeln('Верно, что произведение цифр больше B') else
  writeln('Неверно, что произведение цифр больше B');
  if x=length(q) then writeln('Верно, что число x значеное') else
  writeln('Неверно, что число x значное');
  if q[0]>m then writeln('Верно, что его первая цифра превышает m') else
  writeln('Неверно, что его первая цифра превышает m')
  end.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (05.03.2025) наш сайт содержит 109575 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

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

Последние опубликованные вопросы