profile
Опубликовано 2 года назад по предмету Информатика от Псевдочеловек

Две задачи на 50 баллов . Pascal ABC
Задача первая. Даны цифры двух трёхзначных чисел abc и dxy где a,d - число сотен ;b,x - число десятков ;c,y - число единиц.Получить цифры цисла , которое является суммой двух трехзначных чисел.
Вторая задача.Дано целое число N .Надо определить является ли число палиндромом.

  1. Ответ
    Ответ дан Студэнt
    //PascalABC.Net 3.2
    {1}
    begin
    var n:=100*readinteger('a =')+10*readinteger('b =')+readinteger('c =')+
    100*readinteger('d =')+10*readinteger('x =')+readinteger('y =');
    var s:=n+'';
    Print(s[1], s[2], s[3], n>999? s[4]:' ')
    end.

    {2}
    begin
    var s:=readstring('N =');
    write (s=s.Inverse? 'Палиндром':'Не палиндром')
    end.
    1. Ответ
      Ответ дан Студэнt
      //FPC 2.6.4
      {1}
      var
      i, c: integer;
      a, b: array[1..3] of byte;
      begin
      writeln ('Цифры первого цисла: ');
      for i:=1 to 3 do readln (a[i]);
      writeln ('Цифры второго цисла: ');
      for i:=1 to 3 do readln (b[i]);
      write (a[1]+b[1]+10*(a[2]+b[2])+100*(a[3]+b[3]));
      end.

      {2}
      var
      n, n1, n2: integer;
      begin
      write ('n ='); readln (n);
      n1:=n; n2:=0;
      repeat
      n2:=n mod 10 + n2*10;
      n:=n div 10;
      until n=0;
      if n2=n1 then write ('Полиндром') else write ('Не полиндром');
      end.
  2. Ответ
    Ответ дан Аккаунт удален
    Var
    a,b,c,d,x,y:byte;
    Begin
    Write('a = ');ReadLn(a);
    Write('b = ');ReadLn(b);
    Write('c = ');ReadLn(c);
    Write('d = ');ReadLn(d);
    Write('x = ');ReadLn(x);
    Write('y = ');ReadLn(y);
    WriteLn((a+d)*100+(b+x)*10+c+y);
    End.



    Var
    A,B,C:integer;
    Begin
    Write('A = ');ReadLn(A);
    C:=A;
    While C<>0 do
       Begin
       B:=B*10+(C mod 10);
       C:=C div 10;
       End;
    if A=B then WriteLn(A - ' палиндром')
    else WriteLn(A,' не является палиндромом')
    End.
Не тот ответ, который вам нужен?
Найди нужный
Самые новые вопросы
tegysigalpa2012
Русский язык - 3 года назад

Помогите решить тест по русскому языку тест по русскому языку «местоимение. разряды местоимений» для 6 класса 1. укажите личное местоимение: 1) некто 2) вас 3) ни с кем 4) собой 2. укажите относительное местоимение: 1) кто-либо 2) некоторый 3) кто 4) нам 3. укажите вопросительное местоимение: 1) кем-нибудь 2) кем 3) себе 4) никакой 4. укажите определительное местоимение: 1) наш 2) который 3) некий 4) каждый 5. укажите возвратное местоимение: 1) свой 2) чей 3) сам 4) себя 6. найдите указательное местоимение: 1) твой 2) какой 3) тот 4) их 7. найдите притяжательное местоимение: 1) самый 2) моего 3) иной 4) ничей 8. укажите неопределённое местоимение: 1) весь 2) какой-нибудь 3) любой 4) этот 9. укажите вопросительное местоимение: 1) сколько 2) кое-что 3) она 4) нами 10. в каком варианте ответа выделенное слово является притяжательным местоимением? 1) увидел их 2) её нет дома 3) её тетрадь 4) их не спросили

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.