Укажите через запятую в порядке возрастания все десятичные числа, не превосходяшие 30запись которых в системе счисления с основанием 5 начинается на 3

3(5)=3(10)

30(5)=15(10)

         

35(5)=19(10)

 

301(5)=76(10) больше 30 не берем.

 

ответ: 3,15, 16 итд до 19

{1. традиционный паскаль, каким он был более четверти века назад. именно его описывают школьные учебники. } function max(a,b: real): real; begin   if a> b then max: =a else max: =b end; var   x,y,z,r: real; begin   write('введите z,y,z: ');   read(x,y,z);   r: =sqr(max(max(x+y/2+z,x*y*z/2),z+1))+5;   writeln(r) end. // 2. pascalabc.net 3.2, сборка 1374 от 10.01.2017 // актуальная, современная версия паскаля, которой // все же начали учить некоторые школы и на которой // можно решать олимпиадные // (пока еще не на любых сайтах) begin   var x,y,z: real;   write('введите z,y,z: ');   read(x,y,z);   var r: =sqr(max(max(x+y/2+z,x*y*z/2),z+1))+5;   writeln(r) end.

1) program t1; var a: array[1..6] of integer; i, m, mi: integer; begin writeln('ввод массива'); for i : = 1 to 6 do readln(a[i]); mi : = 1; m : = a[mi]; for i : = 2 to 6 do if a[i] < m then begin mi : = i; m : = a[mi]; end; writeln('минимум: ', m, ' (a[', mi, '])'); end. 2) предполагая, что 'коробочка' - это корень program t2; const f = -8; t = 6; s = 2; var i: real; function gety(x: real): real; begin if (x > -3) and (x < = 3) then gety : = sqrt(x) else gety : = 1 / (x * x); end; begin writeln('промежуток [', f, '; ', t, '], шаг ', s, ': '); i : = f; while i < = t do begin writeln('y(', i, ') = ', gety(i)); i : = i + s; end; end.