Можете с тестом по информатики? s:=0; i:=0; while i<5 do begin S:=S+i; i:=i+1; end; end. 1. Определите значение переменной S после выполнения фрагмента программы 2.Определите значение переменной S после выполнения фрагмента программы

Відповідь:

s=10 i=5

Пояснення:

1) s=0 i=0 i<5

2) s=0 i=1 i<5

3) s=1 i=2 i<5

4) s=3 i=3 i<5

5) s=6 i=4 i<5

6) s=10 i=5  i не <5

// PascalABC.NET 3.4.2, сборка 1785 от 06.09.2018

№1

begin

 5.Range.Select(t -> random(-10, 10)).Println; // диапазон целый

 5.Range.Select(t -> round(random(-10.00, 10.00), 2)).Println; // диапазон вещественный

end.

Пример:

-6 -1 -7 5 -8

-9.33 -5.91 -2.68 5.83 -7.51

№2

begin

 10.Range.Select((e, i)-> (e, (i + 1) * 22.4)).Foreach(t -> begin  

                                    Println($'{t[0],2:f0} шт. - {t[1]:f2} руб.') end)

end.

Результат:

1 шт. - 22.40 руб.  

2 шт. - 44.80 руб.  

3 шт. - 67.20 руб.  

4 шт. - 89.60 руб.  

5 шт. - 112.00 руб.  

6 шт. - 134.40 руб.  

7 шт. - 156.80 руб.  

8 шт. - 179.20 руб.  

9 шт. - 201.60 руб.  

10 шт. - 224.00 руб.

begin

 //1 вариант

 Range(-3, 11).Sum.Println;

 

 //2 вариант

 Range(-3, 11).Aggregate(0, (Sum, x)-> Sum + x).Println;

 

 //3 вариант

 var Sum := 0;

 foreach var x in Range(-3, 11) do

   Sum += x;

 Sum.Println;

 

 //4 вариант

 Sum := 0;

 for var i := -3 to 11 do

   Sum += i;

 Sum.Println;

 

 //5 вариант

 Sum := 0;

 var j := -3;

 while j <= 11 do

 begin

   Sum += j;

   j += 1

 end;

 Sum.Println;

 

 //6 вариант

 Sum := 0;

 j := -3;

 repeat

   Sum += j;

   j += 1;

 until j > 11;

 Sum.Println;

end.