М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
veronik09
veronik09
26.02.2021 13:30 •  Информатика

Дано натуральное число. Какое максимальное число, не кратное 11, можно извлечь из цифр этого числа? Примеры
Введение 7
Вывод 7
Введение 1111
Вывод 111
Введение 27
Вывод 72

👇
Открыть все ответы
Ответ:
basarbakhtiar
basarbakhtiar
26.02.2021

var

  a : array [1..9] integer;

  i : integer;

begin

  for i := 1 to 9 do

    if i mod 3 = 1 then a[i] := i

    else if i mod 3 = 2 then a[i] := sqr (i - 1)

    else a[i] := a[i - 1] div i;

  for i := 1 to 9 do

    write (a[i], ' ');

end.

 

var

  b, a : array [1..15] of integer;

  i, sa, sb : integer;

begin

  randomize;

  sa := 0; sb := 0;

  for i := 1 to 15 do

  begin

    a[i] := trunc (random (100)) + 1;

    write (a[i], ' ');

    sa := sa + a[i];

  end;

  writeln;

  for i := 1 to 15 do

  begin

    b[i] := sqr (a[i]) - a[i]);

    write (b[i], ' ');

    sb := sb + b[i];

  end;

  writeln;

  writeln (abs (sb - sa));

end.

  

4,5(79 оценок)
Ответ:
лерка210198
лерка210198
26.02.2021
1) Выводит 2
2)
var
    N: longint;
    digit, maxdigit: integer;

begin
    readln(N);
    maxdigit := 10; // нужно присваивать 0
    while N > 10 do // нужно написать N > 0
    begin
        digit := N mod 10;
        if digit > maxdigit then
            maxdigit := digit;
        N := N div 10;
    end;
    writeln(digit); // нужно вывести maxdigit
end.

Верный код

var
    N: longint;
    digit, maxdigit: integer;

begin
    readln(N);
    maxdigit := 0;
    while N > 0 do
    begin
        digit := N mod 10;
        if digit > maxdigit then
            maxdigit := digit;
        N := N div 10;
    end;
    writeln(maxdigit);
end.

Требовалось написать программу при выполнении которой с клавиатуры считывается натуральное число n,
4,8(49 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ