19 нужно уже сегодня только 2,4 программа 19.4: program ypr; var n,k: integer; var a: real; begin write('количество k ='); read(k); for n : = 1 to k do begin a: =2*n; write(a, ' '); end; end.

Иисус1234    3   19.03.2019 18:00    0