В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
alenakoslova
alenakoslova
24.11.2022 23:45 •  Информатика

Доказать, имеет ли место следование ?
9 и 12 примеры


Доказать, имеет ли место следование ? 9 и 12 примеры

Показать ответ
Ответ:
MoLoDaYa666
MoLoDaYa666
05.01.2022 02:41
//Pascal
//Для натуральных чисел
var a, s, p:integer;

begin
  write('Введите число = ');
  readln(a);
  s := 0;
  p := 1;
  while (a<>0) do
  begin
    p := p * (a mod 10);
    s := s + (a mod 10);
    a := a div 10;
  end;
 writeln( 'Сумма цифр числа = ', s);
 writeln( 'Произведение цифр числа = ', p);
end.

//Если число отрицательное
var
  s, p, a, b, c: integer;
  f: boolean;
begin
  write('Введите число = ');
  readln(a);
  if a < 0 then
    f := true;
  a := abs(a);
  b := a mod 10;
  a := a div 10;
  c := a mod 10;
  a := a div 10;
  if f = true then
  begin
    p := (-a) * b * c;
    s := -a + b + c;
  end
  else
  begin
    s := a + b + c;
    p := a * b * c;
  end;
  writeln('Сумма цифр числа = ', s);
  writeln('Произведение цифр числа = ', p);
end.
0,0(0 оценок)
Ответ:
fedorinovkirs
fedorinovkirs
31.07.2022 09:14
Значение переменной i не задано, поэтому выведет что - то произвольное,
Почему   while (a<N) ?  А если первая цифра слева в числе = 1?
while (a<N)  нужно заменить на while (0<N)
Убрать строку   a=N%10;  перед while
После строки  min=10;  добавить строку  i=0;

после изменений будет примерно так:

#include<stdio.h>
#include<conio.h>

main() {
 int N,a, min, i, imin; 
 scanf("%d", &N);
 min=10; i=0;
 while (0<N)
 { i++;
 a=N%10;
 N=N/10;
 if (a<min)
 { min=a;
  imin=i; }
 }
 printf ("%d", imin);
 getch();   
 return 0;
}
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота