Program1; Uses crt;
var a: integer;
begin clrscr;
Writeln('введите число");
Readln(a);
if a>0 then Writeln('a-положительное');
if a<0 then Writeln('a-отрицательное');
if a=0 then Writeln('a=0');
Readln;
End.
Только я вот не понял, зачем фотка прикреплена к вопросу?..
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),0,9); a.Println;
Writeln('Сумма двоек равна ',a.Where(t->t=2).Sum)
end.
<u>Пример</u>
n= 15
2 6 6 2 8 5 3 1 8 0 0 2 8 3 6
Сумма двоек равна 6
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
SeqGen(ReadInteger('n='),i->1/(2*i),1).Println.Sum.Println
end.
<u>Пример</u>
n= 6
0.5 0.25 0.166666666666667 0.125 0.1 0.0833333333333333
1.225
Function func32771914() As String
Dim i As Single, S As String
For i = 0.12 To 1.88 Step 0.12
S = S & Cos(i ^ 2) + 5 / i ^ 3 - 2 & ";"
Next
func32771914 = S
End Function
Excel VBA
<span>все простые условия приняли значение true </span>