1.дан текст программы на языке паскаль. program test; car s,i,n: integer; begin s: =0; for i: =1 to - id516218320220201 от катя4003 01.02.2022 03:56

Question

Информатика: 1.дан текст программы на языке паскаль. program test; car s,i,n: integer; begin s: =0; for i: =1 to n do s: =s+i; writeln ( s= ,s); end. a)определите значение переменной s после выполнения программы при n=6; б)для решения какой предназначена программа (сформулируйте условие)? в)по данной программе состав те блок-схему.

катя4003 · Accepted Answer

// 7
begin
var arr := ArrRandom(13);
arr := arr.OrderByDescending(x->x).ToArray;
arr.Println;
Print('Sum = ', arr.Where(x->x>10).Sum() + newline +
'Count = ',arr.Where(x->x>10).Count);
end.

// 8
begin
var arr := ArrRandom(10);
Sort(arr);
arr.Println;
Print('Sum = ', arr.Where(x -> x mod 5 = 0).Sum() + newline +
'Count = ', arr.Where(x -> x mod 5 = 0).Count);
end.

// 9
begin
var arr := ArrRandom(15);
arr := arr.OrderByDescending(x -> x).ToArray;
arr.Println;
Print('array elements squares sum is = ', arr.Sum(x -> x * x));
end.

MOGZ ответил