Написать программу которая выводит все двузначные числа у которых сумма цифр равна числу введенных с клавиатуры.

Program zadacha;     var    i,s: integer; begin      read(s);       for i: =10 to 99 do begin            mod 10) + (i div 10)) = s) then                        writeln(i);       end; end.

1)110010112+101112= x2 2)111012*11102= x2 №6 (110002+6A716)*518=x10 1) MMMCCCXXIX=300010+30010+2010+910= =332910 2) 235410=200010+30010+5010+410= =MMCCCVIV 1) 1101010012=42510 Проверка: 2) 79810= 11000111102 Проверка: 78910=14258 201110=7DB16 1)110010112+101112=111000102 2)111012*11102=1100101102 (110002+6A716)*518=(2410+170310)*4110=7080710 Вариант 2 Вариант 3 №1 1)MMMCDLXIX → x10 2)187810 р.с.с. → №2 1) MMDCCLXXV → x10 2) 135710 р.с.с. → №1 №2 (+проверка) (+проверка) 1)11011112 → x2 2)103810 → x10 1) 110110112 → x2 2)619 10 → x10 43210 → x8 №3 (+проверка) №4 (+проверка) 145610 → x16 №5 1)11001112+1101112= x2 2)11101112*11112= x2 №6 (110012+6216)*1018= x10 Вариант 4 59810 → x8 №3 (+проверка) №4 (+проверка) 126810 → x16 №5 1)1110010112+101012= x2 2)11001012*11012= x2 №6 (101112+25A16)*168= x10 Вариант 5 1)MMMDCCXLIX 2)1874 10 р.с.с. → №1 → x10 №2 1) MMCXCVII 2) 154310 р.с.с. → → x10 №1 №2 (+проверка) (+проверка) 1)110110110 2 2) 53210 → x2 → x10 67810 → x8 №3 (+проверка) №4 (+проверка) 134410 → x16 №5 1)11011102+110012= x2 2)110012*111012= x2 №6 1)11110001 2 → x2 2)650 10 → x10 №3 (+проверка) №4 (+проверка) 110110 → x8 56810 → x16 1)111000112+11102= x2 2)1110112*11112= x2 №5 №6 (1010112+AE216)*738= x10 (101112+FC16)*1528= x10 Вариант 6 1)MCMLXXXIII №1 → x10 Вариант 7 1)MMCDLXIX → x10 №1 2)187610 р.с.с. → 2) 190310 р.с.с. → №2 (+проверка) 1)1110111 2 → x2 2)712 10 → x10 №3 101010 → x8 (+проверка) №4 (+проверка) 100010 → x16 №5 1)111100112+11112= x2 2)11110112*10112= x2 №6 (101012+AC16)*10118= x10 Вариант 8 №1 → x10 1)MMCMXLVI 2) 177110 р.с.с. → №2 (+проверка) 1) 11101012 → x2 2) 33310 → x10 №3 66710 → x8 (+проверка) №4 (+проверка) 129810 → x16 №5 1)110011112+11112= x2 2)111012*110012= x2 (110012+EE16)*1248= x10 №6 Вариант 10 №1 1) MMMCDXLIV → x10 2)122210 р.с.с. → №2 (+проверка) 1)11000102 → x2 2) 33310 → x10 1)1101011 2 → x2 2) 60110 → x10 72810 → x8 190010 → x16 №2 (+проверка) №3 (+проверка) №4 (+проверка) №5 1)1111112+1010102= x2 2)1011112*1112= x2 №6 (111112+AE16)*2008= x10 Вариант 9 1) MMCCCLXXVIII 2) 220010 р.с.с. → №1 → x10 №2 (+проверка) 1) 111000112 → x2 2) 23110 → x10 №3 55510 → x8 150110 → x16 (+проверка) №4 (+проверка) №5 1)11000112+101112= x2 2)110012*1112= x2 №6 (111112+FA16)*10018= x10 Вариант 11 №1 1) MMDCCLXXXV → x10 2) 192810 р.с.с. → №2 (+проверка) 1) 111100102 → x2 2) 20210 → x10 99010 → x8 №3 (+проверка) №4 (+проверка) 150210 → x16 №5 1)11001112+11102= x2 2)101012*101012= x2 №6 (11012+CD16)*1118= x10 Вариант 12 №1 1) MMMCDXLV x→ 10 2) 311110→р.с.с. №2 (+проверка) 1)1100111 2 → x2 2) 18910 → x10 №3 50210 → x8 (+проверка) №4 (+проверка) 102510 → x16 №5 1)110011012+1112= x2 2)10111012*1012= x2 60610 → x8 190010 → x16 №3 (+проверка) №4 (+проверка) №5 1)110011112+1002= x2 2)1101112*11112= x2 (10102+AD16)*1108=x10 №6 Вариант 13 №1 1)MMCDXLIX 2)3053 10 р.с.с. → → x10 №2 (+проверка) 1)1100001 2 → x2 2) 19810 → x10 77710 → x8 №3 (+проверка) №4 (+проверка) 215610 → x16 1)11100012+1012= x2

Const n=4; m=5; var a: array [1..n,1..m] of integer;   i,j,min,imin,jmin: integer; begin randomize; writeln('исходный массив: '); for i: =1 to n do   begin   for j: =1 to m do begin   a[i,j]: =random(21)-10;   write(a[i,j]: 6);   end; writeln; end; min: =a[1,1]; imin: =1; jmin: =1; for i: =1 to n do   for j: =1 to m do   if a[i,j]< min then     begin min: =a[i,j]; imin: =i; jmin: =j; end; writeln('min=a[',imin,',',jmin,']=',min); end. пример: исходный массив:       5     8     2     -5     -4       1   -10     9     1     -4       8     2     -6     -4     -4       8     7     3     2     2 min=a[2,2]=-10