Вопрос: что надо сделать, чтобы сохранить информацию на носителе? варианты ответа: закодировать? зашифровать? декодировать? дешифровать?

Кодирование - представление информации в двоичном коде. соответственно ответ будет закодировать.

Отдел +; использует вывод из "", приём; пер   n, k, сч, мин, кол: цел; сумма_цифр(число: цел): цел; пер   сумма: цел; указ   сумма : = 0;   пока число > 0 вып     увеличить(сумма, число остаток 10);     число : = число делить 10   кон;   возврат сумма кон сумма_цифр; указ   вывод.цепь("n: ");   n : = приём.число();   вывод.цепь("^k: ");   k : = приём.число();   мин : = 1;   от сч : = 1 до n - 1 вып     мин : = мин * 10   кон;   кол : = 0;   от сч : = мин до мин * 10 - 1 вып     если сумма_цифр(сч) = k то       увеличить(кол)     кон   кон;   вывод.чцел("^%d", кол, 0, 0, 0) кон .

Var x, y, a : real; begin writeln('введите переменные: x, y и a'); readln(x, y, a); y: =38*x+231; m=7*x+6*y+276; n=sqr(4*a)+2*x*a+8*y; writeln(x, y и a  соответственно  равны: ' x, y, a'); end. не заметил, что нужно в 3 разные 1) var x, y : real; begin writeln('введите переменную x'); readln(x); y: =38*x+231; writeln('y равен: ', y); end. 2) var x, y, m : real; begin writeln('введите переменную x и y'); readln(x,y); m: =7*x+6*y+276; writeln('m равен: ',  m); end. 3) var x, y, a, n  : real; begin writeln('введите переменные x, y, a'); readln(x, y, a); n=sqr(4*a)+2*x*a+8*y; writeln('n  равен: ',  n); end.