// PascalABC.Net 3.0, сборка 1088 const n=30; var a:array[1..n] of integer; i,k:integer; begin Randomize; Writeln('*** Исходный массив ***'); k:=0; for i:=1 to n do begin a[i]:=Random(1001); Write(a[i],' '); if (a[i] mod 3 = 0) and (a[i] mod 10 = 1) then Inc(k) end; Writeln; Writeln('Количество найденных элементов равно ',k) end.
// PascalABC.Net 3.0, сборка 1088 const n=6; var a:array[1..n] of integer; i:integer; begin Randomize; Writeln('*** Исходный массив ***'); for i:=1 to n do begin a[i]:=Random(1001); Write(a[i],' '); end; Writeln; Writeln('*** Результат ***'); Write(a[1],' '); for i:=2 to n-1 do begin if Odd(a[i]) then a[i]:=a[i]+a[n] else a[i]:=a[i]+a[1]; Write(a[i],' '); end; Writeln(a[n]) end.
12) ...кратно двум.
10) -20
9) 3.0
Объяснение:
12)
Строка "if a % 2 == 0" означает: Если остаток от деления переменной "а" на 2 равен 0, то ...
Если число делится на другое число без остатка, это значит, что первое число кратно второму.
10)
a = 100 # "а" равно 100
b = 30 # "b" равно 30
a = a - b*3 # "а" равно 100 - 30*3 (10)
if a%3 == 2: # Если остаток от деления переменной "а" на 3 равен 2, то... (10%3=1)
c = b//a # ...переменная "с" равна частному от "b" на "а" (30//10 = 3)
elif a%3 == 1: # иначе если остаток от деления переменной "а" на 3 равен 1, то...
c = a - b # ...переменная "с" равна разнице между "a" и "b" (10-30 = -20)
else: # иначе
c = b - a # ...переменная "с" равна разнице между "b" и "a" (30-10 = 20)
print(c) # Напечатать переменную "с" (-20)
9)
a = 30 # "а" равно 30
b = 6 # "b" равно 6
a = b + a/2 # "а" равно 6 + 30/2 (равно 21)
if a > b: # Если a > b, то... (21 > 6)
c = a - 3*b # переменная "с" равна 21 - 3 * 6 (3)
else: # иначе
c = a + 3*b # переменная "с" равна 21 + 3 * 6 (39)
print(c) # Напечатать переменную "c" (3)