Рассмотрите алгоритм, в котором используется функция
а) Укажите имя функции?
Определите количество аргументов, которое
содержит функция?
Б) Определите, сколько раз программа вызовет
функцию при исполнении алгоритма?
с) Определите число, которое будет выведено на
экран в результате выполнения
def F(x):
return 4* (х-5)
a = -1
b = 3
M=a
R = F(а)
for t in range(a, b+1):
if F(t) = R:
M=t
R = F(t)
print(M)
(3)
Итого
из 10 max ​

program p1; vara: string; i: integer; beginreadln(a); for i: =length(a) downto 2 dobeginif a[i]=a[i-1]then delete(a,i,1); end; writeln(a); end.

ввел: asdfsss

результат: asdfs

либо я не знаю либо нужно подумать. но символу нельзя присвоить число ему можно присвоить только символ.

а если число

var n,i,p: integer;

s: string;

begin

  read(n);

  s: =str(n) ; {переводим число в строку}

  n: =0;

  for i : = 1 to length(s) do

      n: = n+ int(s[i]); {переводим каждый символ строки обратно в цифру}

  writeln(n);

  read(n);

  p: =1;

  for i: = 1 to n do

    p: = p*i;

  writeln(p);

end.

495+459=954 954-459=495

var n,cost: real;

begin

  writeln('введите, сколько квт/ч клиент израсходовал');

  readln(n);

  if n< =250 then begin cost: =7*n; writeln('плата равна: ',cost); end;

  if (n> 250) and (n< =300) then begin cost: =17*n; writeln('плата равна: ',cost); end;

  if n> 300 then begin cost: =20*n; writeln('плата равна: ',cost); end;

end.