1. Ячейки В1:В5 содержат значения 1,7,16,23, 3. Чему будет равно значение функции СУММ(В1;В5)? 2. Ячейки - id1072128520220122 от Nikuiii 22.01.2022 16:03

Question

Информатика: 1. Ячейки В1:В5 содержат значения 1,7,16,23, 3. Чему будет равно значение функции СУММ(В1;В5)? 2. Ячейки В1:В5 содержат значения 1,7,16,23, 3. Чему будет равно значение функции СУММ(В1: В5)? 3. Ячейки В1:В5 содержат значения 1,7,16,23, 3. Чему будет равно значение функции МИН(B1:B5)? 4. Ячейки В1:В5 содержат значения 1,7,16,23, 3. Чему будет равно значение функции СРЗНАЧ(B1:B5)? 5. Формула =$A$1*A2+B2 была скопирована из ячейки С2 в С3.Какая формула будет получена в ячейке С3?

Nikuiii · Accepted Answer

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
var x:=ReadInteger('Введите трехзначное число:');
var (a,b,c):=(x div 100,x div 10 mod 10,x mod 10);
if b+c<>0 then
    if x mod (10*b+c)=0 then begin
      Writeln('Вычеркнуть первую цифру (',a,')');
      Exit
      end
else
    if a+c<>0 then
      if x mod (10*a+c)=0 then begin
        Writeln('Вычеркнуть вторую цифру (',b,')');
        Exit
      end
    else
      if a+b<>0 then
        if x mod (10*a+b)=0 then begin
          Writeln('Вычеркнуть третью цифру (',c,')');
          Exit
        end;
Writeln('Нет решения')
end.

Загадывается трехзначное число х. из него нужно вычеркнуть одну цифру так, чтобы оставшееся число y

Загадывается трехзначное число х. из него нужно вычеркнуть одну цифру так, чтобы оставшееся число y

MOGZ ответил