begin for i := 1 to 15 do begin write('a[', i, '] = ');readln(a[i]); if i mod 3 = 0 then s := s + a[i]; end; writeln('Сумма элементов, индексы которых кратны 3 = ', s); end.
begin for i := 1 to 15 do begin a[i] := random(100);write(a[i]:4); end; writeln; for i := 1 to 15 do begin if i mod 2 = 0 then a[i] := a[i] * 2; write(a[i]:4); end; end.
var a: array[1..m] of integer; i, n, k, tmp: integer;
begin write('число элементов : '); readln(n); for i := 1 to n do begin write('a[', i, '] = ');readln(a[i]); end; repeat write('Введите к (k<>1 и k<>n)'); readln(k); if (k = 1) or (k = n) then writeln('Ошибка, повторите ввод'); until (k <> 1) and (k <> n); for i := 1 to n do write(a[i]:4);writeln; tmp := a[k - 1];a[k - 1] := a[k + 1];a[k + 1] := tmp; for i := 1 to n do write(a[i]:4); end.
Если при сложении с единицей в некоторой системе счисления из двухзначного числа получается трехзначное, то двухзначное число было максимально возможным двухзначным числом, записанным в этой системе и обе его цифры были на единицу меньше основания системы счисления.Таким образом, можно утверждать, что заданные числа это 33₄, 66₇, 88₉Число 100 в системе счисления по оcнованию n равно n², т.е. для указанных чисел это будут значения 4²=16, 7²=49 и 9²=81. Остается вычесть единицу.Соответственно, в десятичной системе 33₄=15, 66₇=48, 88₉=80
1) 115 112 111 114 116=sport
2) 109 111 117 115 101=mouse