Определите, что будет выведено на экран после выполнения фрагмента программы на языке программирования - id966241420210518 от гулллллл 18.05.2021 16:09

Question

Информатика: Определите, что будет выведено на экран после выполнения фрагмента программы на языке программирования turbo pascal: x : = 10; y : = 0; while x 0 do begin x : = x - 3; y : = y + x; end; writeln (‘y=’, y);

гулллллл · Accepted Answer

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,99);
a.Println;
var k:=ReadInteger('k=');
Writeln('Сумма чисел, кратных ',k,': ',
a.Where(x->x mod k=0).Sum)
end.

Тестовое решение:
n= 18
45 17 36 15 65 17 97 44 49 43 60 51 66 72 18 55 71 85
k= 12
Сумма чисел, кратных 12: 168

// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
begin
var a:=ArrRandom(ReadInteger('n='),1,20);
a.Println;
a.Where((x,i)->x=i+1).Println
end.

Тестовое решение:
n= 16
17 2 1 14 20 19 10 3 9 15 14 4 2 7 2 16
2 9 16

Определите, что будет выведено на экран после выполнения фрагмента программы на языке программирования turbo pascal: x : = 10; y : = 0; while x > 0 do begin x : = x - 3; y : = y + x; end; writeln (‘y=’, y);

MOGZ ответил