Var x, a: real; i: integer; begin write('введите число '); readln(a); writeln('таблица деления числа ', a, ' на целые четные от 2 до 20 (с 2 знаками после запятой)'); i : = 2; while i < = 20 do begin x : = a / i; writeln(a, '/', i: 2, '=', x: 0: 2); i : = i + 2; end; end. тестовое решение: введите число 27 таблица деления числа 27 на целые четные от 2 до 20 (с 2 знаками после запятой) 27/ 2=13.50 27/ 4=6.75 27/ 6=4.50 27/ 8=3.38 27/10=2.70 27/12=2.25 27/14=1.93 27/16=1.69 27/18=1.50 27/20=1.35
betepah
21.08.2021
//pascal abc.net v3.1 сборка 1172 const n=3; //количество строк m=4; //количество столбцов var f: text; ma: array[1..n,1..m] of integer; i,j,s: integer; begin assign(f,'matrix.txt'); reset(f); for i: =1 to n do begin for j: =1 to m do begin read(f,ma[i,j]); s: =s+ma[i,j]; end; end; close(f); for i: =1 to n do begin writeln; for j: =1 to m do write(ma[i,j]: 4); end; writeln; write(s); end. matrix.txt: 1 2 3 4 4 5 6 4 7 8 9 4 вывод программы: 1 2 3 4 4 5 6 4 7 8 9 4 57