Определите результат выполнения программы (без компьютера) begin s: =0; x: =10; repeat s: =s+x; x: =x+10; - id205795520220127 от Лучший1111кар 27.01.2022 09:05

Question

Информатика: Определите результат выполнения программы (без компьютера) begin s: =0; x: =10; repeat s: =s+x; x: =x+10; untill x 12; writein( s= ,s); writein( x= ,s); end.

Лучший1111кар · Accepted Answer

// PascalABC.Net 3.0, сборка 1064 const   n = 10; var   ms: array[1..n] of string;   t: string;   i, j: integer;   f: Text; begin   { Чтение матрицы из файла }   Assign(f, in.txt ); Reset(f);   for i := 1 to n do Readln(f, ms[i]);   Close(f);   { Вывод матрицы на экран }   Writeln( *** Бинарная матрица *** );   for i := 1 to n do Writeln(ms[i]);   { Сортировка обменом (простейшая) }   for i := 1 to n - 1 do     for j := 1 to n - 1 do       if ms[j] ms[j + 1] then       begin t := ms[j]; ms[j] :=...

Определите результат выполнения программы (без компьютера) begin s: =0; x: =10; repeat s: =s+x; x: =x+10; untill x> 12; writein('s=',s); writein('x=',s); end.

MOGZ ответил