Язык Питон и С++

Обратное число

В этой задаче нужно ответить на 1≤t≤105 за Каждый за состоит из двух целых чисел 2≤p≤109 и 0

Входные данные

В первой строке дано целое число t — количество за В следующих t строках даны по два числа pi и ai, i=1,…,t.

Выходные данные

Выведите t целых чисел (каждое число в отдельной строке) — ответы на за Примеры

Ввод

4

5 1

5 2

5 3

5 4

Вывод

1

3

2

4
Если будет две рабочих программы, добавлю балов(до 50)

var c,a,b,i,j,l: integer; begin  cls;

  write('введите через пробел отрезок');   read(a,b);   for i: =a to b+1 do  begin    j: =2;     l: =round(sqrt(i));     while (i mod j < > 0) and (j < = l) do                                                                            begin                                                                              inc(j);                                                                             end;       if (j > l) then                                    begin                                      write(c,' ');                                       c: =i;                                     end;   end; end.

1)

выравнивание информации за счет расположения ее в ячейках таблицы. с таблиц текст можно представлять в виде колонок выравнивание названий и полей формы расположение на web-странице текста и графических изображений по разным колонкам использование вложенных таблиц различного фона для отдельных частей страницы

2)чтобы создать таблицу, используют команду таблица > вставить таблицу. в открывшемся диалоговом окне указывают размер таблицы (в ячейках), а также дополнительные параметры, реализуемые как атрибуты соответствующих тегов. чтобы занести информацию в таблицу, следует установить курсор в нужную ячейку и начать ввод. при работе с ячейками таблицы можно применять любые команды форматирования.

var

  st: array[0..10000]of char;   s,s1: string;   g,g1,i,j,z: longint;   t: char;

begin

  z: =0;

  readln(s);

  readln(s1);

  g: =length(s);

g1: =length(s1);

for i: =1 to g do

for j: =1 to g1 do if s[i]=s1[j] then

begin

  inc(z);

  st[z]: =s[i];

  break;

end;

for i: =1 to z-1 do for j: =i+1 to z do if st[i]> st[j] then

begin

  t: =st[i];

  st[i]: =st[j];

  st[j]: =t;

end;

st[z+1]: ='-';

for i: =1 to z do i st[i]< > st[i+1] then write(st[i],' ');

end.

 

 

прогоняем числа от 10 до 99 в цикле, учитываем при выводе отрицательные числа.

на  tpascal:

var i: integer;

begin

for i: =10 to 99 do begin

if i mod 3 = 2 then

writeln (i,' ',-i,' ');

i: =i+1;

end;

readln

end.