Да,числа : 3,10,17,24,31,38,45,52,59,66,73,80,87,94 P.S. Pascal ABC var a:integer; begin for a:=1 to 100 do begin if (a mod 7 =3)then writeln(a); end; end.
var a: array[1..100, 1..100] of real; max, min: real; i, j, m, n: integer;
begin {ввод матрицы} if handsfree then begin n := random(20) + 2; m := random(20) + 2; end else begin write('n, m ='); readln(n, m); end;
writeln('Данные матрицы'); for i := 1 to m do begin for j := 1 to n do if handsfree then begin a[i, j] := random(100) - 50; write(a[i, j]:4, ' ') end else read(a[i, j]); writeln; end;
{минимумы и максимумы} max := a[1, 1]; min := a[1, 1]; for i := 1 to m do for j := 1 to n do begin if max < a[i, j] then max := a[i, j]; if min > a[i, j] then min := a[i, j]; end; writeln('max = ', max); writeln('min = ', min); end.
Для перевода в любую счислительную систему из десятичной нужно число делить на 2, 8 и 16 соответственно системам. Остаток при делении отмечаешь (если число делится нацело то отмечаешь остаток как ноль). Затем частное от первого деления снова делишь на 2, 8 или 16 соответственно системе счисления. Отмечаешь остаток. И так далее пока не останется в частном то, что уже нельзя делить. Отмечаешь последнее частное. А потом задом наперед (справа на лево) выписываешь последнее частное и за ним все остатки. Это и будет перевод числа в данную систему счисления. 2. a) b) 3. a) b) 4. a) --> 4 единицы в записи b) --> 2 единицы в записи. 5. a) --> 4 нуля в записи b) --> 2 нуля в записи
--> 4 единицы в записи
--> 2 единицы в записи.
--> 4 нуля в записи
--> 2 нуля в записи
P.S. Pascal ABC
var a:integer;
begin
for a:=1 to 100 do
begin
if (a mod 7 =3)then writeln(a);
end;
end.