profile
Опубликовано 4 года назад по предмету Информатика от ErichZann

1) Дано число.  Получить новое число с обратным значением цифр , где 0→9, 1→8, 2→7, 3→6, 4→5, а цифры 5, 6,7,8,9 не изменяются . (например, число 1379 перепишем как 8679)

 

2)    Триморфное число — число, запись куба которого оканчивается цифрами самого этого числа. Например, 43 = 64, 243 = 13 824, 2493 = 15 438 249. определить, является ли введенное число тримоформным.

  1. Ответ
    Ответ дан Аленусик
    Var a,h:longint;
    b:integer;
    begin
    writeln ('введи число');
    readln (a);
    while a>0 do begin
    b:=a mod 10;
    case b of
    0: b:=9;
    1: b:=8;
    2: b:=7;
    3: b:=6;
    4: b:=5;
    end;
    h:=h*10+b;
    a:=a div 10;
    end;
    a:+0;
    while h>0 do begin
    b:=h mod 10;
    a:=a*10+b;
    h:=h div 10;
    end;
    writeln (a);
    readln;
    end.
    1. Ответ
      Ответ дан Аленусик
      Var a,h,n,b,l:longint;
      begin
      writeln ('введи число');
      readln (a);
      h:=a*a*a;
      b:=a;
      n:=1;
      while b>0 do begin
      b:=b div 10;
      n:=n*10;
      end;
      b:=h mod n;
      if a=b then writeln ('yes')
      else writeln ('no');
      readln;
      end.