1)Выделите текст или ячейки с текстом, который нужно изменить. Чтобы выделить весь текст в документе Word, нажмите клавиши CTRL+A.
2)На вкладке Главная в поле Размер шрифта выберите нужный размер шрифта.
<em>// PascalABC.NET 3.3, сборка 1547 от 07.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ArrRandom(ReadInteger('Число элементов массива х:'),-99,99);
x.Println; var a:=x.Where(p->p>0).Sum;
var y:=ArrRandom(ReadInteger('Число элементов массива y:'),-99,99);
y.Println; var b:=y.Where(p->p>0).Sum;
var t:=ArrRandom(ReadInteger('Число элементов массива t:'),-99,99);
t.Println; var c:=t.Where(p->p>0).Sum;
Writeln('Z=',Ln(a)+Power(Cos(b),3)+c)
end.
<u>Пример</u>
Число элементов массива х: 8
56 59 24 -5 -13 -24 9 -86
Число элементов массива y: 11
0 6 25 -69 86 34 -92 72 -39 -64 96
Число элементов массива t: 6
-54 24 -15 50 0 19
Z=97.999309110524
Ответ:
Язык: Питон
Объяснение:
a = int(input())
for i in range(2, a + 1):
flag = True
for f in range(2, i):
if i % f == 0:
flag = False
break
if flag:
print(i, end=' ')
Mod означает остаток от деления
x:=2
y:=5
Var
a,s,n,i:integer;
begin
s:=0;
readln(n);
for i:=1 to n do
begin
read(a);
if((a mod 3)=0) then s:=s+1;
end;
writeln(s);
end.